diff --git a/tests/debug/sboyer-csc.scm b/tests/debug/sboyer-csc.scm new file mode 100644 index 00000000..ba724e84 --- /dev/null +++ b/tests/debug/sboyer-csc.scm @@ -0,0 +1,1095 @@ +[optimized] +(lambda (k737) + (let ((k738 (##core#lambda + (r739) + (let ((k741 (##core#lambda + (r742) + (let ((k744 (##core#lambda + (r745) + (let ((k747 (##core#lambda + (r748) + (let ((k750 (##core#lambda + (r751) + (let ((t753 (set! flush-output-port #f flush-output))) + (let ((t754 (set! current-jiffy #f current-milliseconds))) + (let ((t755 (set! jiffies-per-second + #f + (lambda (k757) (k757 1000))))) + (let ((t758 (set! current-second #f current-seconds))) + (let ((t759 (set! inexact #f exact->inexact))) + (let ((t760 (set! exact #f inexact->exact))) + (let ((t761 (set! square + #f + (lambda (k763 x61) + (k763 (##core#inline_allocate + ("C_a_i_times" 4) + x61 + x61)))))) + (let ((t767 (set! exact-integer? #f integer?))) + (let ((t768 (set! this-scheme-implementation-name + #f + (lambda (k770) + (let ((k775 (##core#lambda + (r776) + (string-append k770 "chicken-" r776)))) + (chicken-version k775)))))) + (let ((t778 (set! main + #f + (lambda (k780) + (let ((k781 (##core#lambda + (r782) + (let ((count66 r782)) + (let ((k784 (##core#lambda + (r785) + (let ((input67 r785)) + (let ((k787 (##core#lambda + (r788) + (let ((output68 r788)) + (let ((k790 (##core#lambda + (r791) + (let ((s269 r791)) + (let ((k793 (##core#lambda + (r794) + (let ((k800 (##core#lambda + (r801) + (let ((a803 (lambda (k805) + (let ((k806 (##core#lambda + (r807) + (let ((k813 (##core#lambda + (r814) + (test-boyer k805 alist term r814)))) + (hide k813 count66 input67))))) + (setup-boyer k806))))) + (let ((a816 (lambda (k818 rewrites73) + (let ((r823 (##core#inline "C_i_numberp" rewrites73))) + (k818 (##core#cond + r823 + (##core#inline "C_i_nequalp" rewrites73 output68) + #f)))))) + (run-r7rs-benchmark k780 r801 count66 a803 a816)))))) + (string-append k800 "sboyer" ":" r794 ":" s269))))) + (number->string k793 input67)))))) + (number->string k790 count66)))))) + (read k787)))))) + (read k784)))))) + (read k781)))))) + (let ((t828 (set! alist + #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))))))) + (let ((t829 (set! term + #f + '(implies + (and (implies x y) + (and (implies y z) + (and (implies z u) (implies u w)))) + (implies x w))))) + (let ((setup79 (##core#undefined))) + (let ((add-lemma-lst80 (##core#undefined))) + (let ((add-lemma81 (##core#undefined))) + (let ((translate-term82 (##core#undefined))) + (let ((translate-args83 (##core#undefined))) + (let ((untranslate-term84 (##core#undefined))) + (let ((put85 (##core#undefined))) + (let ((get86 (##core#undefined))) + (let ((symbol->symbol-record87 (##core#undefined))) + (let ((*symbol-records-alist*88 (##core#undefined))) + (let ((get-lemmas91 (##core#undefined))) + (let ((test94 (##core#undefined))) + (let ((translate-alist95 (##core#undefined))) + (let ((apply-subst96 (##core#undefined))) + (let ((apply-subst-lst97 (##core#undefined))) + (let ((tautp98 (##core#undefined))) + (let ((tautologyp99 (##core#undefined))) + (let ((if-constructor100 (##core#undefined))) + (let ((rewrite-count101 (##core#undefined))) + (let ((scons102 (##core#undefined))) + (let ((rewrite103 (##core#undefined))) + (let ((rewrite-args104 (##core#undefined))) + (let ((rewrite-with-lemmas105 (##core#undefined))) + (let ((unify-subst106 (##core#undefined))) + (let ((one-way-unify107 (##core#undefined))) + (let ((one-way-unify1108 (##core#undefined))) + (let ((one-way-unify1-lst109 (##core#undefined))) + (let ((falsep110 (##core#undefined))) + (let ((truep111 (##core#undefined))) + (let ((false-term112 (##core#undefined))) + (let ((true-term113 (##core#undefined))) + (let ((trans-of-implies1115 (##core#undefined))) + (let ((term-equal?116 (##core#undefined))) + (let ((term-args-equal?117 (##core#undefined))) + (let ((term-member?118 (##core#undefined))) + (let ((t830 (set! setup79 + #f + (lambda (k832) + (add-lemma-lst80 + k832 + '((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))))))))) + (let ((t836 (set! add-lemma-lst80 + #f + (lambda (k838 lst119) + (if (##core#inline "C_i_nullp" lst119) + (k838 #t) + (let ((k845 (##core#lambda + (r846) + (let ((r853 (##core#inline "C_i_cdr" lst119))) + (add-lemma-lst80 k838 r853))))) + (let ((r857 (##core#inline "C_i_car" lst119))) + (add-lemma81 k845 r857)))))))) + (let ((t859 (set! add-lemma81 + #f + (lambda (k861 term125) + (let ((k865 (##core#lambda + (r866) + (if r866 + (let ((r897 (##core#inline "C_i_cadr" term125))) + (let ((r873 (##core#inline "C_i_car" r897))) + (let ((a871 r873)) + (let ((k880 (##core#lambda + (r881) + (let ((a879 r881)) + (let ((k884 (##core#lambda + (r885) + (let ((r877 (##core#inline_allocate + ("C_a_i_cons" 3) + a879 + r885))) + (put85 k861 a871 r877))))) + (let ((r893 (##core#inline "C_i_cadr" term125))) + (let ((r889 (##core#inline "C_i_car" r893))) + (get86 k884 r889)))))))) + (translate-term82 k880 term125))))) + (error k861 + #f + "ADD-LEMMA did not like term: " + term125))))) + (if (##core#inline "C_i_pairp" term125) + (let ((r920 (##core#inline "C_i_car" term125))) + (let ((r909 (##core#inline "C_eqp" r920 'equal))) + (if r909 + (let ((r916 (##core#inline "C_i_cadr" term125))) + (k865 (##core#inline "C_i_pairp" r916))) + (k865 #f)))) + (k865 #f))))))) + (let ((t922 (set! translate-term82 + #f + (lambda (k924 term132) + (if (##core#inline "C_i_pairp" term132) + (let ((k935 (##core#lambda + (r936) + (let ((a934 r936)) + (let ((k939 (##core#lambda + (r940) + (k924 (##core#inline_allocate + ("C_a_i_cons" 3) + a934 + r940))))) + (let ((r944 (##core#inline "C_i_cdr" term132))) + (translate-args83 k939 r944))))))) + (let ((r948 (##core#inline "C_i_car" term132))) + (symbol->symbol-record87 k935 r948))) + (k924 term132)))))) + (let ((t954 (set! translate-args83 + #f + (lambda (k956 lst137) + (if (##core#inline "C_i_nullp" lst137) + (k956 '()) + (let ((k967 (##core#lambda + (r968) + (let ((a966 r968)) + (let ((k971 (##core#lambda + (r972) + (k956 (##core#inline_allocate + ("C_a_i_cons" 3) + a966 + r972))))) + (let ((r976 (##core#inline "C_i_cdr" lst137))) + (translate-args83 k971 r976))))))) + (let ((r980 (##core#inline "C_i_car" lst137))) + (translate-term82 k967 r980)))))))) + (let ((t982 (set! untranslate-term84 + #f + (lambda (k984 term142) + (if (##core#inline "C_i_pairp" term142) + (let ((r1047 (##core#inline "C_i_car" term142))) + (let ((r996 (##core#inline "C_i_vector_ref" r1047 0))) + (let ((a994 r996)) + (let ((r1000 (##core#inline_allocate + ("C_a_i_cons" 3) + (##core#undefined) + '()))) + (let ((g154162 r1000)) + (let ((g153163 g154162)) + (let ((g155164 untranslate-term84)) + (let ((r1003 (##core#inline "C_i_cdr" term142))) + (let ((r1006 (##core#inline "C_i_check_list_2" r1003 'map))) + (let ((k1008 (##core#lambda + (r1009) + (k984 (##core#inline_allocate + ("C_a_i_cons" 3) + a994 + r1009))))) + (let ((map-loop149166 (##core#undefined))) + (let ((t1011 (set! map-loop149166 + #f + (lambda (k1013 g161167) + (if (##core#inline "C_i_pairp" g161167) + (let ((k1035 (##core#lambda + (r1036) + (let ((r1021 (##core#inline_allocate + ("C_a_i_cons" 3) + r1036 + '()))) + (let ((r1024 (##core#inline "C_i_setslot" g154162 1 r1021))) + (let ((t1026 (set! g154162 #f r1021))) + (let ((r1032 (##core#inline "C_slot" g161167 1))) + (map-loop149166 k1013 r1032)))))))) + (let ((r1040 (##core#inline "C_slot" g161167 0))) + (g155164 k1035 r1040))) + (k1013 (##core#inline "C_slot" g153163 1))))))) + (map-loop149166 k1008 r1003))))))))))))) + (k984 term142)))))) + (let ((t1053 (set! put85 + #f + (lambda (k1055 sym173 value175) + (let ((k1060 (##core#lambda + (r1061) + (let ((k1105 k1055)) + (let ((lemmas184 value175)) + (k1105 (##core#inline + "C_i_vector_set" + r1061 + 1 + lemmas184))))))) + (symbol->symbol-record87 k1060 sym173)))))) + (let ((t1063 (set! get86 + #f + (lambda (k1065 sym176) + (let ((k1070 (##core#lambda + (r1071) + (get-lemmas91 k1065 r1071)))) + (symbol->symbol-record87 k1070 sym176)))))) + (let ((t1073 (set! symbol->symbol-record87 + #f + (lambda (k1075 sym178) + (let ((r1077 (##core#inline + "C_i_assq" + sym178 + *symbol-records-alist*88))) + (if r1077 + (k1075 (##core#inline "C_i_cdr" r1077)) + (let ((sym182 sym178)) + (let ((r1086 (##core#inline_allocate + ("C_a_i_vector2" 3) + sym182 + '()))) + (let ((r1094 (##core#inline_allocate + ("C_a_i_cons" 3) + sym178 + r1086))) + (let ((r1090 (##core#inline_allocate + ("C_a_i_cons" 3) + r1094 + *symbol-records-alist*88))) + (let ((t1088 (set! *symbol-records-alist*88 #f r1090))) + (k1075 r1086)))))))))))) + (let ((t1096 (set! *symbol-records-alist*88 #t '()))) + (let ((t1109 (set! get-lemmas91 + #f + (lambda (k1111 symbol-record185) + (k1111 (##core#inline + "C_i_vector_ref" + symbol-record185 + 1)))))) + (let ((t1127 (set! test94 + #f + (lambda (k1129 alist189 term190 n191) + (let ((k1130 (##core#lambda (r1131) (tautp98 k1129 r1131)))) + (let ((k1137 (##core#lambda + (r1138) + (let ((a1136 r1138)) + (let ((k1141 (##core#lambda + (r1142) + (apply-subst96 k1130 a1136 r1142)))) + (let ((k1145 (##core#lambda + (r1146) + (translate-term82 k1141 r1146)))) + (let ((doloop193194 (##core#undefined))) + (let ((t1148 (set! doloop193194 + #f + (lambda (k1150 term195 n196) + (if (##core#inline "C_i_zerop" n196) + (k1150 term195) + (let ((r1162 (##core#inline_allocate + ("C_a_i_list3" 9) + 'or + term195 + '(f)))) + (let ((r1166 (##core#inline_allocate ("C_a_i_minus" 4) n196 1))) + (doloop193194 k1150 r1162 r1166)))))))) + (doloop193194 k1145 term190 n191))))))))) + (translate-alist95 k1137 alist189))))))) + (let ((t1168 (set! translate-alist95 + #f + (lambda (k1170 alist198) + (if (##core#inline "C_i_nullp" alist198) + (k1170 '()) + (let ((r1194 (##core#inline "C_i_caar" alist198))) + (let ((a1192 r1194)) + (let ((k1197 (##core#lambda + (r1198) + (let ((r1182 (##core#inline_allocate + ("C_a_i_cons" 3) + a1192 + r1198))) + (let ((a1180 r1182)) + (let ((k1185 (##core#lambda + (r1186) + (k1170 (##core#inline_allocate + ("C_a_i_cons" 3) + a1180 + r1186))))) + (let ((r1190 (##core#inline "C_i_cdr" alist198))) + (translate-alist95 k1185 r1190)))))))) + (let ((r1202 (##core#inline "C_i_cdar" alist198))) + (translate-term82 k1197 r1202)))))))))) + (let ((t1204 (set! apply-subst96 + #f + (lambda (k1206 alist203 term204) + (if (##core#inline "C_i_pairp" term204) + (let ((r1227 (##core#inline "C_i_car" term204))) + (let ((a1225 r1227)) + (let ((k1230 (##core#lambda + (r1231) + (k1206 (##core#inline_allocate + ("C_a_i_cons" 3) + a1225 + r1231))))) + (let ((r1235 (##core#inline "C_i_cdr" term204))) + (apply-subst-lst97 k1230 alist203 r1235))))) + (let ((r1214 (##core#inline "C_i_assq" term204 alist203))) + (k1206 (##core#cond + r1214 + (##core#inline "C_i_cdr" r1214) + term204)))))))) + (let ((t1241 (set! apply-subst-lst97 + #f + (lambda (k1243 alist210 lst211) + (if (##core#inline "C_i_nullp" lst211) + (k1243 '()) + (let ((k1254 (##core#lambda + (r1255) + (let ((a1253 r1255)) + (let ((k1258 (##core#lambda + (r1259) + (k1243 (##core#inline_allocate + ("C_a_i_cons" 3) + a1253 + r1259))))) + (let ((r1263 (##core#inline "C_i_cdr" lst211))) + (apply-subst-lst97 k1258 alist210 r1263))))))) + (let ((r1267 (##core#inline "C_i_car" lst211))) + (apply-subst96 k1254 alist210 r1267)))))))) + (let ((t1269 (set! tautp98 + #f + (lambda (k1271 x216) + (let ((k1276 (##core#lambda + (r1277) + (tautologyp99 k1271 r1277 '() '())))) + (rewrite103 k1276 x216)))))) + (let ((t1279 (set! tautologyp99 + #f + (lambda (k1281 x217 true-lst218 false-lst219) + (let ((k1285 (##core#lambda + (r1286) + (if r1286 + (k1281 #t) + (let ((k1291 (##core#lambda + (r1292) + (if r1292 + (k1281 #f) + (if (##core#inline "C_i_pairp" x217) + (let ((r1375 (##core#inline "C_i_car" x217))) + (let ((r1304 (##core#inline "C_eqp" r1375 if-constructor100))) + (if r1304 + (let ((k1309 (##core#lambda + (r1310) + (if r1310 + (let ((r1317 (##core#inline "C_i_caddr" x217))) + (tautologyp99 + k1281 + r1317 + true-lst218 + false-lst219)) + (let ((k1322 (##core#lambda + (r1323) + (if r1323 + (let ((r1330 (##core#inline "C_i_cadddr" x217))) + (tautologyp99 + k1281 + r1330 + true-lst218 + false-lst219)) + (let ((k1335 (##core#lambda + (r1336) + (if r1336 + (let ((r1343 (##core#inline "C_i_cadddr" x217))) + (let ((r1351 (##core#inline "C_i_cadr" x217))) + (let ((r1347 (##core#inline_allocate + ("C_a_i_cons" 3) + r1351 + false-lst219))) + (tautologyp99 k1281 r1343 true-lst218 r1347)))) + (k1281 #f))))) + (let ((r1355 (##core#inline "C_i_caddr" x217))) + (let ((r1363 (##core#inline "C_i_cadr" x217))) + (let ((r1359 (##core#inline_allocate + ("C_a_i_cons" 3) + r1363 + true-lst218))) + (tautologyp99 k1335 r1355 r1359 false-lst219))))))))) + (let ((r1367 (##core#inline "C_i_cadr" x217))) + (falsep110 k1322 r1367 false-lst219))))))) + (let ((r1371 (##core#inline "C_i_cadr" x217))) + (truep111 k1309 r1371 true-lst218))) + (k1281 #f)))) + (k1281 #f)))))) + (falsep110 k1291 x217 false-lst219)))))) + (truep111 k1285 x217 true-lst218)))))) + (let ((t1381 (set! if-constructor100 #f '*))) + (let ((t1382 (set! rewrite-count101 #t 0))) + (let ((t1383 (set! scons102 + #f + (lambda (k1385 x229 y230 original231) + (let ((k1389 (##core#lambda + (r1390) + (k1385 (##core#cond + r1390 + original231 + (##core#inline_allocate + ("C_a_i_cons" 3) + x229 + y230)))))) + (let ((r1407 (##core#inline "C_i_car" original231))) + (let ((r1396 (##core#inline "C_eqp" x229 r1407))) + (if r1396 + (let ((r1403 (##core#inline "C_i_cdr" original231))) + (k1389 (##core#inline "C_eqp" y230 r1403))) + (k1389 #f))))))))) + (let ((t1409 (set! rewrite103 + #f + (lambda (k1411 term233) + (let ((r1414 (##core#inline_allocate + ("C_a_i_plus" 4) + rewrite-count101 + 1))) + (let ((t1412 (set! rewrite-count101 #f r1414))) + (if (##core#inline "C_i_pairp" term233) + (let ((k1426 (##core#lambda + (r1427) + (let ((a1425 r1427)) + (let ((k1430 (##core#lambda + (r1431) + (rewrite-with-lemmas105 k1411 a1425 r1431)))) + (let ((r1435 (##core#inline "C_i_car" term233))) + (get-lemmas91 k1430 r1435))))))) + (let ((r1439 (##core#inline "C_i_car" term233))) + (let ((a1437 r1439)) + (let ((k1442 (##core#lambda + (r1443) + (scons102 k1426 a1437 r1443 term233)))) + (let ((r1447 (##core#inline "C_i_cdr" term233))) + (rewrite-args104 k1442 r1447)))))) + (k1411 term233)))))))) + (let ((t1453 (set! rewrite-args104 + #f + (lambda (k1455 lst239) + (if (##core#inline "C_i_nullp" lst239) + (k1455 '()) + (let ((k1466 (##core#lambda + (r1467) + (let ((a1465 r1467)) + (let ((k1470 (##core#lambda + (r1471) + (scons102 k1455 a1465 r1471 lst239)))) + (let ((r1475 (##core#inline "C_i_cdr" lst239))) + (rewrite-args104 k1470 r1475))))))) + (let ((r1479 (##core#inline "C_i_car" lst239))) + (rewrite103 k1466 r1479)))))))) + (let ((t1481 (set! rewrite-with-lemmas105 + #f + (lambda (k1483 term244 lst245) + (if (##core#inline "C_i_nullp" lst245) + (k1483 term244) + (let ((k1493 (##core#lambda + (r1494) + (if r1494 + (let ((k1500 (##core#lambda (r1501) (rewrite103 k1483 r1501)))) + (let ((r1509 (##core#inline "C_i_car" lst245))) + (let ((r1505 (##core#inline "C_i_caddr" r1509))) + (apply-subst96 k1500 unify-subst106 r1505)))) + (let ((r1516 (##core#inline "C_i_cdr" lst245))) + (rewrite-with-lemmas105 k1483 term244 r1516)))))) + (let ((r1524 (##core#inline "C_i_car" lst245))) + (let ((r1520 (##core#inline "C_i_cadr" r1524))) + (one-way-unify107 k1493 term244 r1520))))))))) + (let ((t1526 (set! unify-subst106 #f '*))) + (let ((t1527 (set! one-way-unify107 + #f + (lambda (k1529 term1250 term2251) + (let ((t1530 (set! unify-subst106 #t '()))) + (one-way-unify1108 k1529 term1250 term2251)))))) + (let ((t1534 (set! one-way-unify1108 + #f + (lambda (k1536 term1253 term2254) + (if (##core#inline "C_i_pairp" term2254) + (if (##core#inline "C_i_pairp" term1253) + (let ((r1598 (##core#inline "C_i_car" term1253))) + (let ((r1602 (##core#inline "C_i_car" term2254))) + (let ((r1583 (##core#inline "C_eqp" r1598 r1602))) + (if r1583 + (let ((r1590 (##core#inline "C_i_cdr" term1253))) + (let ((r1594 (##core#inline "C_i_cdr" term2254))) + (one-way-unify1-lst109 k1536 r1590 r1594))) + (k1536 #f))))) + (k1536 #f)) + (let ((r1544 (##core#inline + "C_i_assq" + term2254 + unify-subst106))) + (if r1544 + (let ((r1554 (##core#inline "C_i_cdr" r1544))) + (term-equal?116 k1536 term1253 r1554)) + (if (##core#inline "C_i_numberp" term2254) + (k1536 (##core#inline "C_i_equalp" term1253 term2254)) + (let ((r1571 (##core#inline_allocate + ("C_a_i_cons" 3) + term2254 + term1253))) + (let ((r1567 (##core#inline_allocate + ("C_a_i_cons" 3) + r1571 + unify-subst106))) + (let ((t1565 (set! unify-subst106 #f r1567))) + (k1536 #t)))))))))))) + (let ((t1612 (set! one-way-unify1-lst109 + #f + (lambda (k1614 lst1265 lst2266) + (if (##core#inline "C_i_nullp" lst1265) + (k1614 (##core#inline "C_i_nullp" lst2266)) + (if (##core#inline "C_i_nullp" lst2266) + (k1614 #f) + (let ((k1633 (##core#lambda + (r1634) + (if r1634 + (let ((r1641 (##core#inline "C_i_cdr" lst1265))) + (let ((r1645 (##core#inline "C_i_cdr" lst2266))) + (one-way-unify1-lst109 k1614 r1641 r1645))) + (k1614 #f))))) + (let ((r1649 (##core#inline "C_i_car" lst1265))) + (let ((r1653 (##core#inline "C_i_car" lst2266))) + (one-way-unify1108 k1633 r1649 r1653)))))))))) + (let ((t1655 (set! falsep110 + #f + (lambda (k1657 x271 lst272) + (let ((k1658 (##core#lambda + (r1659) + (if r1659 + (k1657 r1659) + (term-member?118 k1657 x271 lst272))))) + (term-equal?116 k1658 x271 false-term112)))))) + (let ((t1667 (set! truep111 + #f + (lambda (k1669 x276 lst277) + (let ((k1670 (##core#lambda + (r1671) + (if r1671 + (k1669 r1671) + (term-member?118 k1669 x276 lst277))))) + (term-equal?116 k1670 x276 true-term113)))))) + (let ((t1679 (set! false-term112 #f '*))) + (let ((t1680 (set! true-term113 #f '*))) + (let ((t1699 (set! trans-of-implies1115 + #f + (lambda (k1701 n282) + (let ((r1706 (##core#inline "C_eqp" n282 1))) + (if r1706 + (k1701 (##core#inline_allocate + ("C_a_i_list3" 9) + 'implies + 0 + 1)) + (let ((r1728 (##core#inline_allocate ("C_a_i_minus" 4) n282 1))) + (let ((r1716 (##core#inline_allocate + ("C_a_i_list3" 9) + 'implies + r1728 + n282))) + (let ((a1714 r1716)) + (let ((k1719 (##core#lambda + (r1720) + (k1701 (##core#inline_allocate + ("C_a_i_list3" 9) + 'and + a1714 + r1720))))) + (let ((r1724 (##core#inline_allocate ("C_a_i_minus" 4) n282 1))) + (trans-of-implies1115 k1719 r1724)))))))))))) + (let ((t1730 (set! term-equal?116 + #f + (lambda (k1732 x287 y288) + (if (##core#inline "C_i_pairp" x287) + (if (##core#inline "C_i_pairp" y288) + (let ((r1764 (##core#inline "C_i_car" x287))) + (let ((r1768 (##core#inline "C_i_car" y288))) + (let ((r1749 (##core#inline "C_eqp" r1764 r1768))) + (if r1749 + (let ((r1756 (##core#inline "C_i_cdr" x287))) + (let ((r1760 (##core#inline "C_i_cdr" y288))) + (term-args-equal?117 k1732 r1756 r1760))) + (k1732 #f))))) + (k1732 #f)) + (k1732 (##core#inline "C_i_equalp" x287 y288))))))) + (let ((t1773 (set! term-args-equal?117 + #f + (lambda (k1775 lst1295 lst2296) + (if (##core#inline "C_i_nullp" lst1295) + (k1775 (##core#inline "C_i_nullp" lst2296)) + (if (##core#inline "C_i_nullp" lst2296) + (k1775 #f) + (let ((k1794 (##core#lambda + (r1795) + (if r1795 + (let ((r1802 (##core#inline "C_i_cdr" lst1295))) + (let ((r1806 (##core#inline "C_i_cdr" lst2296))) + (term-args-equal?117 k1775 r1802 r1806))) + (k1775 #f))))) + (let ((r1810 (##core#inline "C_i_car" lst1295))) + (let ((r1814 (##core#inline "C_i_car" lst2296))) + (term-equal?116 k1794 r1810 r1814)))))))))) + (let ((t1816 (set! term-member?118 + #f + (lambda (k1818 x301 lst302) + (if (##core#inline "C_i_nullp" lst302) + (k1818 #f) + (let ((k1828 (##core#lambda + (r1829) + (if r1829 + (k1818 #t) + (let ((r1836 (##core#inline "C_i_cdr" lst302))) + (term-member?118 k1818 x301 r1836)))))) + (let ((r1840 (##core#inline "C_i_car" lst302))) + (term-equal?116 k1828 x301 r1840)))))))) + (let ((t1842 (set! setup-boyer + #f + (lambda (k1844) + (let ((t1845 (set! *symbol-records-alist*88 #t '()))) + (let ((k1847 (##core#lambda + (r1848) + (let ((t1846 (set! if-constructor100 #f r1848))) + (let ((k1851 (##core#lambda + (r1852) + (let ((t1850 (set! false-term112 #f r1852))) + (let ((k1855 (##core#lambda + (r1856) + (let ((t1854 (set! true-term113 #f r1856))) + (setup79 k1844))))) + (translate-term82 k1855 '(t))))))) + (translate-term82 k1851 '(f))))))) + (symbol->symbol-record87 k1847 'if))))))) + (let ((t1861 (set! test-boyer + #f + (lambda (k1863 alist311 term312 n313) + (let ((t1864 (set! rewrite-count101 #t 0))) + (let ((k1865 (##core#lambda + (r1866) + (k1863 (##core#cond r1866 rewrite-count101 #f))))) + (test94 k1865 alist311 term312 n313))))))) + (let ((t1871 (set! hide + #f + (lambda (k1873 r358 x359) + (let ((a1877 (lambda (k1879) + (let ((a1894 (lambda (k1896 x360) (k1896 x360)))) + (let ((r1885 (##core#inline_allocate + ("C_a_i_vector2" 3) + values + a1894))) + (let ((r1892 (##core#inline "C_i_lessp" r358 100))) + (let ((r1889 (##core#cond r1892 0 1))) + ((##core#proc "C_values" #t) k1879 r1885 r1889)))))))) + (let ((a1897 (lambda (k1899 v361 i362) + (let ((r1901 (##core#inline "C_i_vector_ref" v361 i362))) + (r1901 k1899 x359))))) + ((##core#proc "C_call_with_values" #t) + k1873 + a1877 + a1897))))))) + (let ((t1906 (set! run-r7rs-benchmark + #f + (lambda (k1908 name366 count367 thunk368 ok?369) + (let ((k1923 (##core#lambda + (r1924) + (let ((k1926 (##core#lambda + (r1927) + (let ((k1929 (##core#lambda + (r1930) + (let ((k1932 (##core#lambda + (r1933) + (let ((k1935 (##core#lambda + (r1936) + (let ((j/s372 r1936)) + (let ((k1938 (##core#lambda + (r1939) + (let ((t0373 r1939)) + (let ((k1941 (##core#lambda + (r1942) + (let ((j0374 r1942)) + (let ((loop375 (##core#undefined))) + (let ((t1947 (set! loop375 + #f + (lambda (k1949 i376 result377) + (if (##core#inline "C_i_lessp" i376 count367) + (let ((r1961 (##core#inline_allocate ("C_a_i_plus" 4) i376 1))) + (let ((a1959 r1961)) + (let ((k1964 (##core#lambda + (r1965) + (loop375 k1949 a1959 r1965)))) + (thunk368 k1964)))) + (let ((k1970 (##core#lambda + (r1971) + (if r1971 + (let ((k1973 (##core#lambda + (r1974) + (let ((j1382 r1974)) + (let ((k1976 (##core#lambda + (r1977) + (let ((t1383 r1977)) + (let ((r1980 (##core#inline_allocate + ("C_a_i_minus" 4) + j1382 + j0374))) + (let ((k1982 (##core#lambda + (r1983) + (let ((secs385 r1983)) + (let ((k1985 (##core#lambda + (r1986) + (let ((secs2386 r1986)) + (let ((k1988 (##core#lambda + (r1989) + (let ((k1991 (##core#lambda + (r1992) + (let ((k1994 (##core#lambda + (r1995) + (let ((k1997 (##core#lambda + (r1998) + (let ((k2000 (##core#lambda + (r2001) + (let ((k2003 (##core#lambda + (r2004) + (let ((k2006 (##core#lambda + (r2007) + (let ((k2009 (##core#lambda + (r2010) + (let ((k2012 (##core#lambda + (r2013) + (let ((k2015 (##core#lambda + (r2016) + (let ((k2018 (##core#lambda + (r2019) + (let ((k2021 (##core#lambda + (r2022) + (let ((k2024 (##core#lambda + (r2025) + (let ((k2027 (##core#lambda + (r2028) + (let ((k2030 (##core#lambda (r2031) (k1949 result377)))) + (let ((r2035 ##sys#standard-output)) + (flush-output-port k2030 ##sys#standard-output)))))) + (newline k2027))))) + (display k2024 secs385))))) + (display k2021 ","))))) + (display k2018 name366))))) + (display k2015 ","))))) + (let ((k2038 (##core#lambda (r2039) (display k2012 r2039)))) + (this-scheme-implementation-name k2038)))))) + (display k2009 "+!CSVLINE!+"))))) + (newline k2006))))) + (display k2003 name366))))) + (display k2000 ") for "))))) + (write k1997 secs2386))))) + (display k1994 " seconds ("))))) + (write k1991 secs385))))) + (display k1988 "Elapsed time: ")))))) + (let ((r2043 (##core#inline_allocate + ("C_a_i_minus" 4) + t1383 + t0373))) + (let ((k1911 k1985)) + (let ((k1916 (##core#lambda + (r1917) + (k1911 (##core#inline_allocate + ("C_a_i_divide" 4) + r1917 + 1000))))) + (let ((r1921 (##core#inline_allocate + ("C_a_i_times" 4) + 1000 + r2043))) + (round k1916 r1921)))))))))) + (let ((r2047 (##core#inline_allocate + ("C_a_i_divide" 4) + r1980 + j/s372))) + (inexact k1982 r2047)))))))) + (current-second k1976)))))) + (current-jiffy k1973)) + (let ((k2049 (##core#lambda + (r2050) + (let ((k2052 (##core#lambda + (r2053) + (let ((k2055 (##core#lambda + (r2056) + (let ((k2058 (##core#lambda (r2059) (k1949 result377)))) + (let ((r2063 ##sys#standard-output)) + (flush-output-port k2058 ##sys#standard-output)))))) + (newline k2055))))) + (write k2052 result377))))) + (display + k2049 + "ERROR: returned incorrect result: ")))))) + (ok?369 k1970 result377))))))) + (loop375 k1908 0 #f))))))) + (current-jiffy k1941)))))) + (current-second k1938)))))) + (jiffies-per-second k1935))))) + (let ((r2067 ##sys#standard-output)) + (flush-output-port k1932 ##sys#standard-output)))))) + (newline k1929))))) + (display k1926 name366))))) + (display k1923 "Running ")))))) + (let ((k2069 (##core#lambda + (r2070) + (let ((k2072 (##core#lambda (r2073) (k737 (##core#undefined))))) + (let ((k2075 (##core#lambda (r2076) (r2076 k2072)))) + (##sys#implicit-exit-handler k2075)))))) + (main k2069))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (##sys#require k750 'vector-lib))))) + (##core#callunit "extras" k747))))) + (##core#callunit "chicken_2dsyntax" k744))))) + (##core#callunit "eval" k741))))) + (##core#callunit "library" k738))) diff --git a/tests/debug/sboyer-cyc.c b/tests/debug/sboyer-cyc.c new file mode 100644 index 00000000..822cc68f --- /dev/null +++ b/tests/debug/sboyer-cyc.c @@ -0,0 +1,113218 @@ +/** + ** 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) + (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;}