diff --git a/tests/debug/diviter/Makefile b/tests/debug/diviter/Makefile new file mode 100644 index 00000000..14c4b0ef --- /dev/null +++ b/tests/debug/diviter/Makefile @@ -0,0 +1,8 @@ +diviter: diviter.c + cc diviter.c -O2 -fPIC -Wall -I/usr/local/include -L/usr/local/lib -Wl,--export-dynamic -c -o diviter.o + cc diviter.o /usr/local/share/cyclone/scheme/cyclone/common.o /usr/local/share/cyclone/scheme/base.o /usr/local/share/cyclone/scheme/time.o /usr/local/share/cyclone/scheme/write.o /usr/local/share/cyclone/scheme/char.o /usr/local/share/cyclone/scheme/read.o -pthread -lcyclone -lck -lm -ltommath -ldl -O2 -fPIC -Wall -I/usr/local/include -L/usr/local/lib -Wl,--export-dynamic -o diviter + +.PHONY: clean + +clean: + rm -rf diviter *.o diff --git a/tests/debug/diviter/diviter.c b/tests/debug/diviter/diviter.c new file mode 100644 index 00000000..b8a999c0 --- /dev/null +++ b/tests/debug/diviter/diviter.c @@ -0,0 +1,30240 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** http://justinethier.github.io/cyclone/ + ** + ** (c) 2014-2018 Justin Ethier + ** Version 0.8.1 + ** + **/ + +/* +"---------------- input program:" + */ +/* +((import + (scheme base) + (scheme read) + (scheme write) + (scheme time)) + (define (create-n n) + (do ((n n (- n 1)) (a '() (cons '() a))) + ((= n 0) a))) + (define (iterative-div2 l) + (do ((l l (cddr l)) (a '() (cons (car l) a))) + ((null? l) a))) + (define (main) + (let* ((count 1000000) + (input1 1000) + (output 500) + (s2 (number->string count)) + (s1 (number->string input1)) + (ll (create-n (hide count input1))) + (name "diviter")) + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () (iterative-div2 ll)) + (lambda (result) (equal? (length result) output))))) + (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 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) + (is-a? 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-ref 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) + (Cyc-map-loop-1 scheme base) + (Cyc-for-each-loop-1 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-object? scheme base) + (error-object-message scheme base) + (error-object-irritants 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) + (peek-char scheme base) + (read-char 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) + (peek-u8 scheme base) + (read-u8 scheme base) + (write-u8 scheme base) + (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 create-n + (lambda (n$1) + ((lambda (n$5 a$6) + ((lambda (lp$2$7) + (set! lp$2$7 + (lambda (n$8 a$9) + (if (= n$8 0) + a$9 + (lp$2$7 (- n$8 1) (cons '() a$9))))) + (lp$2$7 n$5 a$6)) + #f)) + n$1 + '()))) + (define iterative-div2 + (lambda (l$10) + ((lambda (l$14 a$15) + ((lambda (lp$11$16) + (set! lp$11$16 + (lambda (l$17 a$18) + (if (null? l$17) + a$18 + (lp$11$16 (cddr l$17) (cons (car l$17) a$18))))) + (lp$11$16 l$14 a$15)) + #f)) + l$10 + '()))) + (define main + (lambda () + ((lambda (count$21) + ((lambda (input1$24) + ((lambda (output$27) + ((lambda (s2$30) + ((lambda (s1$33) + ((lambda (ll$36) + ((lambda (name$39) + ((lambda () + (run-r7rs-benchmark + (string-append name$39 ":" s1$33 ":" s2$30) + count$21 + (lambda () (iterative-div2 ll$36)) + (lambda (result$41) + (equal? (length result$41) output$27)))))) + "diviter")) + (create-n (hide count$21 input1$24)))) + (number->string input1$24))) + (number->string count$21))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda (r$42 x$43) + (call-with-values + (lambda () + (values + (vector values (lambda (x$44) x$44)) + (if (< r$42 100) 0 1))) + (lambda (v$45 i$46) + ((vector-ref v$45 i$46) x$43))))) + (define run-r7rs-benchmark + (lambda (name$47 count$48 thunk$49 ok?$50) + (define rounded + (lambda (x$51) (/ (round (* 1000 x$51)) 1000))) + (display "Running ") + (display name$47) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$54) + ((lambda (t0$57) + ((lambda (j0$60) + ((lambda () + ((lambda (i$63 result$64) + ((lambda (loop$65) + (set! loop$65 + (lambda (i$66 result$67) + (if (< i$66 count$48) + ((lambda () (loop$65 (+ i$66 1) (thunk$49)))) + (if (ok?$50 result$67) + ((lambda () + ((lambda (j1$76) + ((lambda (t1$79) + ((lambda (jifs$82) + ((lambda (secs$85) + ((lambda (secs2$88) + ((lambda () + (display "Elapsed time: ") + (write secs$85) + (display " seconds (") + (write secs2$88) + (display ") for ") + (display name$47) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47) + (display ",") + (display secs$85) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1$79 t0$57)))) + (inexact (/ jifs$82 j/s$54)))) + (- j1$76 j0$60))) + (current-second))) + (current-jiffy)) + result$67)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result$67) + (newline) + (flush-output-port (current-output-port)) + result$67)))))) + (loop$65 i$63 result$64)) + #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 create-n + (lambda (n$1) + ((lambda (n$5 a$6) + ((lambda (lp$2$7) + (set! lp$2$7 + (lambda (n$8 a$9) + (if (= n$8 0) + a$9 + (lp$2$7 (- n$8 1) (cons '() a$9))))) + (lp$2$7 n$5 a$6)) + #f)) + n$1 + '()))) + (define iterative-div2 + (lambda (l$10) + ((lambda (l$14 a$15) + ((lambda (lp$11$16) + (set! lp$11$16 + (lambda (l$17 a$18) + (if (null? l$17) + a$18 + (lp$11$16 (cddr l$17) (cons (car l$17) a$18))))) + (lp$11$16 l$14 a$15)) + #f)) + l$10 + '()))) + (define main + (lambda () + ((lambda (count$21) + ((lambda (input1$24) + ((lambda (output$27) + ((lambda (s2$30) + ((lambda (s1$33) + ((lambda (ll$36) + ((lambda (name$39) + ((lambda () + (run-r7rs-benchmark + (string-append name$39 ":" s1$33 ":" s2$30) + count$21 + (lambda () (iterative-div2 ll$36)) + (lambda (result$41) + (equal? (length result$41) output$27)))))) + "diviter")) + (create-n (hide count$21 input1$24)))) + (number->string input1$24))) + (number->string count$21))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda (r$42 x$43) + (call-with-values + (lambda () + (values + (vector values (lambda (x$44) x$44)) + (if (< r$42 100) 0 1))) + (lambda (v$45 i$46) + ((vector-ref v$45 i$46) x$43))))) + (define run-r7rs-benchmark + (lambda (name$47 count$48 thunk$49 ok?$50) + (define rounded + (lambda (x$51) (/ (round (* 1000 x$51)) 1000))) + (display "Running ") + (display name$47) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$54) + ((lambda (t0$57) + ((lambda (j0$60) + ((lambda () + ((lambda (i$63 result$64) + ((lambda (loop$65) + (set! loop$65 + (lambda (i$66 result$67) + (if (< i$66 count$48) + ((lambda () (loop$65 (+ i$66 1) (thunk$49)))) + (if (ok?$50 result$67) + ((lambda () + ((lambda (j1$76) + ((lambda (t1$79) + ((lambda (jifs$82) + ((lambda (secs$85) + ((lambda (secs2$88) + ((lambda () + (display "Elapsed time: ") + (write secs$85) + (display " seconds (") + (write secs2$88) + (display ") for ") + (display name$47) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47) + (display ",") + (display secs$85) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1$79 t0$57)))) + (inexact (/ jifs$82 j/s$54)))) + (- j1$76 j0$60))) + (current-second))) + (current-jiffy)) + result$67)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result$67) + (newline) + (flush-output-port (current-output-port)) + result$67)))))) + (loop$65 i$63 result$64)) + #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 create-n + (lambda (n$1) + ((lambda (n$5 a$6) + ((lambda (lp$2$7) + (set! lp$2$7 + (lambda (n$8 a$9) + (if (= n$8 0) + a$9 + (lp$2$7 (- n$8 1) (cons '() a$9))))) + (lp$2$7 n$5 a$6)) + #f)) + n$1 + '()))) + (define iterative-div2 + (lambda (l$10) + ((lambda (l$14 a$15) + ((lambda (lp$11$16) + (set! lp$11$16 + (lambda (l$17 a$18) + (if (null? l$17) + a$18 + (lp$11$16 (cddr l$17) (cons (car l$17) a$18))))) + (lp$11$16 l$14 a$15)) + #f)) + l$10 + '()))) + (define main + (lambda () + ((lambda (count$21) + ((lambda (input1$24) + ((lambda (output$27) + ((lambda (s2$30) + ((lambda (s1$33) + ((lambda (ll$36) + ((lambda (name$39) + ((lambda () + (run-r7rs-benchmark + (string-append name$39 ":" s1$33 ":" s2$30) + count$21 + (lambda () (iterative-div2 ll$36)) + (lambda (result$41) + (equal? (length result$41) output$27)))))) + "diviter")) + (create-n (hide count$21 input1$24)))) + (number->string input1$24))) + (number->string count$21))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda (r$42 x$43) + (call-with-values + (lambda () + (values + (vector values (lambda (x$44) x$44)) + (if (< r$42 100) 0 1))) + (lambda (v$45 i$46) + ((vector-ref v$45 i$46) x$43))))) + (define run-r7rs-benchmark + (lambda (name$47 count$48 thunk$49 ok?$50) + (define rounded + (lambda (x$51) (/ (round (* 1000 x$51)) 1000))) + (display "Running ") + (display name$47) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$54) + ((lambda (t0$57) + ((lambda (j0$60) + ((lambda () + ((lambda (i$63 result$64) + ((lambda (loop$65) + (set! loop$65 + (lambda (i$66 result$67) + (if (< i$66 count$48) + ((lambda () (loop$65 (+ i$66 1) (thunk$49)))) + (if (ok?$50 result$67) + ((lambda () + ((lambda (j1$76) + ((lambda (t1$79) + ((lambda (jifs$82) + ((lambda (secs$85) + ((lambda (secs2$88) + ((lambda () + (display "Elapsed time: ") + (write secs$85) + (display " seconds (") + (write secs2$88) + (display ") for ") + (display name$47) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47) + (display ",") + (display secs$85) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1$79 t0$57)))) + (inexact (/ jifs$82 j/s$54)))) + (- j1$76 j0$60))) + (current-second))) + (current-jiffy)) + result$67)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result$67) + (newline) + (flush-output-port (current-output-port)) + result$67)))))) + (loop$65 i$63 result$64)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second)))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + ((lambda () 0 (main)))) + */ +/* +"pass thru exports:" + */ +/* +() + */ +/* +"---------------- after alpha conversion:" + */ +/* +((define create-n + (lambda (n$1$91) + ((lambda (n$5$92 a$6$93) + ((lambda (lp$2$7$94) + (set! lp$2$7$94 + (lambda (n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + a$9$96 + (lp$2$7$94 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))) + (lp$2$7$94 n$5$92 a$6$93)) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda (l$10$97) + ((lambda (l$14$98 a$15$99) + ((lambda (lp$11$16$100) + (set! lp$11$16$100 + (lambda (l$17$101 a$18$102) + (if (null? l$17$101) + a$18$102 + (lp$11$16$100 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))) + (lp$11$16$100 l$14$98 a$15$99)) + #f)) + l$10$97 + '()))) + (define main + (lambda () + ((lambda (count$21$103) + ((lambda (input1$24$104) + ((lambda (output$27$105) + ((lambda (s2$30$106) + ((lambda (s1$33$107) + ((lambda (ll$36$108) + ((lambda (name$39$109) + ((lambda () + (run-r7rs-benchmark + (string-append + name$39$109 + ":" + s1$33$107 + ":" + s2$30$106) + count$21$103 + (lambda () (iterative-div2 ll$36$108)) + (lambda (result$41$110) + (equal? + (length result$41$110) + output$27$105)))))) + "diviter")) + (create-n (hide count$21$103 input1$24$104)))) + (number->string input1$24$104))) + (number->string count$21$103))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda (r$42$111 x$43$112) + (call-with-values + (lambda () + (values + (vector values (lambda (x$44$113) x$44$113)) + (if (Cyc-fast-lt r$42$111 100) 0 1))) + (lambda (v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) x$43$112))))) + (define run-r7rs-benchmark + (lambda (name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda (rounded$121) + ((lambda (rounded$122) + (set! rounded$121 + (lambda (x$51$123) + (Cyc-fast-div + (round (Cyc-fast-mul 1000 x$51$123)) + 1000))) + (display "Running ") + (display name$47$116) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$54$124) + ((lambda (t0$57$125) + ((lambda (j0$60$126) + ((lambda () + ((lambda (i$63$127 result$64$128) + ((lambda (loop$65$129) + (set! loop$65$129 + (lambda (i$66$130 result$67$131) + (if (Cyc-fast-lt i$66$130 count$48$117) + ((lambda () + (loop$65$129 + (Cyc-fast-plus i$66$130 1) + (thunk$49$118)))) + (if (ok?$50$119 result$67$131) + ((lambda () + ((lambda (j1$76$132) + ((lambda (t1$79$133) + ((lambda (jifs$82$134) + ((lambda (secs$85$135) + ((lambda (secs2$88$136) + ((lambda () + (display + "Elapsed time: ") + (write secs$85$135) + (display " seconds (") + (write secs2$88$136) + (display ") for ") + (display name$47$116) + (newline) + (display + "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47$116) + (display ",") + (display secs$85$135) + (newline) + (flush-output-port + (current-output-port))))) + (rounded$121 + (Cyc-fast-sub + t1$79$133 + t0$57$125)))) + (inexact + (Cyc-fast-div + jifs$82$134 + j/s$54$124)))) + (Cyc-fast-sub + j1$76$132 + j0$60$126))) + (current-second))) + (current-jiffy)) + result$67$131)) + ((lambda () + (display + "ERROR: returned incorrect result: ") + (write result$67$131) + (newline) + (flush-output-port + (current-output-port)) + result$67$131)))))) + (loop$65$129 i$63$127 result$64$128)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second))) + #f)) + #f))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + ((lambda () 0 (main)))) + */ +/* +"---------------- after func->primitive conversion:" + */ +/* +((define create-n + (lambda (n$1$91) + ((lambda (n$5$92 a$6$93) + ((lambda (lp$2$7$94) + (set! lp$2$7$94 + (lambda (n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + a$9$96 + (lp$2$7$94 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))) + (lp$2$7$94 n$5$92 a$6$93)) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda (l$10$97) + ((lambda (l$14$98 a$15$99) + ((lambda (lp$11$16$100) + (set! lp$11$16$100 + (lambda (l$17$101 a$18$102) + (if (null? l$17$101) + a$18$102 + (lp$11$16$100 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))) + (lp$11$16$100 l$14$98 a$15$99)) + #f)) + l$10$97 + '()))) + (define main + (lambda () + ((lambda (count$21$103) + ((lambda (input1$24$104) + ((lambda (output$27$105) + ((lambda (s2$30$106) + ((lambda (s1$33$107) + ((lambda (ll$36$108) + ((lambda (name$39$109) + ((lambda () + (run-r7rs-benchmark + (string-append + name$39$109 + ":" + s1$33$107 + ":" + s2$30$106) + count$21$103 + (lambda () (iterative-div2 ll$36$108)) + (lambda (result$41$110) + (equal? + (length result$41$110) + output$27$105)))))) + "diviter")) + (create-n (hide count$21$103 input1$24$104)))) + (number->string input1$24$104))) + (number->string count$21$103))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda (r$42$111 x$43$112) + (call-with-values + (lambda () + (values + (vector values (lambda (x$44$113) x$44$113)) + (if (Cyc-fast-lt r$42$111 100) 0 1))) + (lambda (v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) x$43$112))))) + (define run-r7rs-benchmark + (lambda (name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda (rounded$121) + ((lambda (rounded$122) + (set! rounded$121 + (lambda (x$51$123) + (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))) + (display "Running ") + (display name$47$116) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$54$124) + ((lambda (t0$57$125) + ((lambda (j0$60$126) + ((lambda () + ((lambda (i$63$127 result$64$128) + ((lambda (loop$65$129) + (set! loop$65$129 + (lambda (i$66$130 result$67$131) + (if (Cyc-fast-lt i$66$130 count$48$117) + ((lambda () + (loop$65$129 + (Cyc-fast-plus i$66$130 1) + (thunk$49$118)))) + (if (ok?$50$119 result$67$131) + ((lambda () + ((lambda (j1$76$132) + ((lambda (t1$79$133) + ((lambda (jifs$82$134) + ((lambda (secs$85$135) + ((lambda (secs2$88$136) + ((lambda () + (display + "Elapsed time: ") + (write secs$85$135) + (display " seconds (") + (write secs2$88$136) + (display ") for ") + (display name$47$116) + (newline) + (display + "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47$116) + (display ",") + (display secs$85$135) + (newline) + (flush-output-port + (current-output-port))))) + (rounded$121 + (Cyc-fast-sub + t1$79$133 + t0$57$125)))) + (inexact__inline__ + (Cyc-fast-div + jifs$82$134 + j/s$54$124)))) + (Cyc-fast-sub + j1$76$132 + j0$60$126))) + (current-second))) + (current-jiffy)) + result$67$131)) + ((lambda () + (display + "ERROR: returned incorrect result: ") + (write result$67$131) + (newline) + (flush-output-port + (current-output-port)) + result$67$131)))))) + (loop$65$129 i$63$127 result$64$128)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second))) + #f)) + #f))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + ((lambda () 0 (main)))) + */ +/* +"---------------- results of inlinable-top-level-lambda analysis: " + */ +/* +() + */ +/* +"---------------- after CPS:" + */ +/* +((define create-n + (lambda-11-cont + (k$139 n$1$91) + ((lambda-10 + (r$140) + ((lambda-9 + (n$5$92 a$6$93) + ((lambda-8 + (lp$2$7$94) + ((lambda-2 + (r$142) + ((lambda-1 + (r$141) + (lp$2$7$94 k$139 n$5$92 a$6$93)) + (set! lp$2$7$94 r$142))) + (lambda-7-cont + (k$143 n$8$95 a$9$96) + ((lambda-6 + (r$144) + (if r$144 + (k$143 a$9$96) + ((lambda-5 + (r$145) + ((lambda-4 + (r$147) + ((lambda-3 (r$146) (lp$2$7$94 k$143 r$145 r$146)) + (cons r$147 a$9$96))) + '())) + (Cyc-fast-sub n$8$95 1)))) + (Cyc-fast-eq n$8$95 0))))) + #f)) + n$1$91 + r$140)) + '()))) + (define iterative-div2 + (lambda-22-cont + (k$150 l$10$97) + ((lambda-21 + (r$151) + ((lambda-20 + (l$14$98 a$15$99) + ((lambda-19 + (lp$11$16$100) + ((lambda-13 + (r$153) + ((lambda-12 + (r$152) + (lp$11$16$100 k$150 l$14$98 a$15$99)) + (set! lp$11$16$100 r$153))) + (lambda-18-cont + (k$154 l$17$101 a$18$102) + ((lambda-17 + (r$155) + (if r$155 + (k$154 a$18$102) + ((lambda-16 + (r$156) + ((lambda-15 + (r$158) + ((lambda-14 + (r$157) + (lp$11$16$100 k$154 r$156 r$157)) + (cons r$158 a$18$102))) + (car l$17$101))) + (cddr l$17$101)))) + (null? l$17$101))))) + #f)) + l$10$97 + r$151)) + '()))) + (define main + (lambda-41-cont + (k$161) + ((lambda-40 + (count$21$103) + ((lambda-39 + (input1$24$104) + ((lambda-38 + (output$27$105) + ((lambda-37 + (r$162) + ((lambda-36 + (s2$30$106) + ((lambda-35 + (r$163) + ((lambda-34 + (s1$33$107) + (hide (lambda-33 + (r$171) + (create-n + (lambda-32 + (r$164) + ((lambda-31 + (ll$36$108) + ((lambda-30 + (name$39$109) + ((lambda-29 + () + ((lambda-28 + (r$165) + ((lambda-26 + (r$166) + ((lambda-23 + (r$167) + (run-r7rs-benchmark + k$161 + r$165 + count$21$103 + r$166 + r$167)) + (lambda-25-cont + (k$168 result$41$110) + ((lambda-24 + (r$169) + (k$168 (equal? + r$169 + output$27$105))) + (length + result$41$110))))) + (lambda-27-cont + (k$170) + (iterative-div2 + k$170 + ll$36$108)))) + (string-append + name$39$109 + ":" + s1$33$107 + ":" + s2$30$106))))) + "diviter")) + r$164)) + r$171)) + count$21$103 + input1$24$104)) + r$163)) + (number->string input1$24$104))) + r$162)) + (number->string count$21$103))) + 500)) + 1000)) + 1000000))) + (define hide + (lambda-53-cont + (k$174 r$42$111 x$43$112) + ((lambda-45 + (r$175) + ((lambda-42 + (r$176) + (call-with-values k$174 r$175 r$176)) + (lambda-44-cont + (k$177 v$45$114 i$46$115) + ((lambda-43 (r$178) (r$178 k$177 x$43$112)) + (vector-ref v$45$114 i$46$115))))) + (lambda-52-cont + (k$179) + ((lambda-50 + (r$184) + (vector + (lambda-49 + (r$180) + ((lambda-48-cont + (k$182) + ((lambda-47 + (r$183) + (if r$183 (k$182 0) (k$182 1))) + (Cyc-fast-lt r$42$111 100))) + (lambda-46 (r$181) (values k$179 r$180 r$181)))) + values + r$184)) + (lambda-51-cont + (k$185 x$44$113) + (k$185 x$44$113))))))) + (define run-r7rs-benchmark + (lambda-120-cont + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda-119 + (rounded$121) + ((lambda-118 + (rounded$122) + ((lambda-114 + (r$234) + ((lambda-113 + (r$189) + (display + (lambda-112 + (r$190) + (display + (lambda-111 + (r$191) + (newline + (lambda-110 + (r$192) + (current-output-port + (lambda-109 + (r$233) + (flush-output-port + (lambda-108 + (r$193) + (jiffies-per-second + (lambda-107 + (r$194) + ((lambda-106 + (j/s$54$124) + (current-second + (lambda-105 + (r$195) + ((lambda-104 + (t0$57$125) + (current-jiffy + (lambda-103 + (r$196) + ((lambda-102 + (j0$60$126) + ((lambda-101 + () + ((lambda-100 + (i$63$127 + result$64$128) + ((lambda-99 + (loop$65$129) + ((lambda-55 + (r$198) + ((lambda-54 + (r$197) + (loop$65$129 + k$188 + i$63$127 + result$64$128)) + (set! loop$65$129 + r$198))) + (lambda-98-cont + (k$199 i$66$130 + result$67$131) + ((lambda-97 + (r$200) + (if r$200 + ((lambda-58 + () + ((lambda-57 + (r$201) + (thunk$49$118 + (lambda-56 + (r$202) + (loop$65$129 + k$199 + r$201 + r$202)))) + (Cyc-fast-plus + i$66$130 + 1)))) + (ok?$50$119 + (lambda-96 + (r$203) + (if r$203 + ((lambda-89 + () + (current-jiffy + (lambda-88 + (r$205) + ((lambda-87 + (j1$76$132) + (current-second + (lambda-86 + (r$206) + ((lambda-85 + (t1$79$133) + ((lambda-84 + (r$207) + ((lambda-83 + (jifs$82$134) + ((lambda-82 + (r$227) + ((lambda-81 + (r$208) + ((lambda-80 + (secs$85$135) + ((lambda-79 + (r$226) + (rounded$121 + (lambda-78 + (r$209) + ((lambda-77 + (secs2$88$136) + ((lambda-76 + () + (display + (lambda-75 + (r$210) + (write (lambda-74 + (r$211) + (display + (lambda-73 + (r$212) + (write (lambda-72 + (r$213) + (display + (lambda-71 + (r$214) + (display + (lambda-70 + (r$215) + (newline + (lambda-69 + (r$216) + (display + (lambda-68 + (r$217) + (this-scheme-implementation-name + (lambda-67 + (r$225) + (display + (lambda-66 + (r$218) + (display + (lambda-65 + (r$219) + (display + (lambda-64 + (r$220) + (display + (lambda-63 + (r$221) + (display + (lambda-62 + (r$222) + (newline + (lambda-61 + (r$223) + (current-output-port + (lambda-60 + (r$224) + (flush-output-port + (lambda-59 + (r$204) + (k$199 result$67$131)) + r$224)))))) + secs$85$135)) + ",")) + name$47$116)) + ",")) + r$225)))) + "+!CSVLINE!+")))) + name$47$116)) + ") for ")) + secs2$88$136)) + " seconds (")) + secs$85$135)) + "Elapsed time: ")))) + r$209)) + r$226)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + r$208)) + (inexact__inline__ + r$227))) + (Cyc-fast-div + jifs$82$134 + j/s$54$124))) + r$207)) + (Cyc-fast-sub + j1$76$132 + j0$60$126))) + r$206)))) + r$205))))) + ((lambda-95 + () + (display + (lambda-94 + (r$228) + (write (lambda-93 + (r$229) + (newline + (lambda-92 + (r$230) + (current-output-port + (lambda-91 + (r$232) + (flush-output-port + (lambda-90 + (r$231) + (k$199 result$67$131)) + r$232)))))) + result$67$131)) + "ERROR: returned incorrect result: "))))) + result$67$131))) + (Cyc-fast-lt + i$66$130 + count$48$117))))) + #f)) + 0 + #f)))) + r$196)))) + r$195)))) + r$194)))) + r$233)))))) + name$47$116)) + "Running ")) + (set! rounded$121 r$234))) + (lambda-117-cont + (k$235 x$51$123) + ((lambda-116 + (r$237) + ((lambda-115 + (r$236) + (k$235 (Cyc-fast-div r$236 1000))) + (round__inline__ r$237))) + (Cyc-fast-mul 1000 x$51$123))))) + #f)) + #f))) + (define this-scheme-implementation-name + (lambda-122-cont + (k$240) + (Cyc-version + (lambda-121 + (r$241) + (k$240 (string-append "cyclone-" r$241)))))) + ((lambda-124 + () + ((lambda-123 (r$242) (main %halt)) 0)))) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + "" + (size hash compare associate entries)) + #(299 + #[procedure] + #[procedure] + #[procedure] + #(() + ((1 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((2 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((3 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((4 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((5 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((6 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((7 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$142 lp$2$7$94 r$142) #f)))) + ((8 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((9 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((10 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((11 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((12 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((13 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((14 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((15 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((%halt . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (123) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (inexact__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (82) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (16 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((17 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((18 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$153 lp$11$16$100 r$153) #f)))) + ((19 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((20 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((21 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((22 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((23 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((24 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((25 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$167) #f)))) + ((26 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((27 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$166) #t)))) + ((28 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((29 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((30 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((31 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$241 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 121 + #f + #f + #f + 1 + (121) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$225 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 67 + #f + #f + #f + 1 + (67) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$217 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 68 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$209 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 78 + #f + #f + #f + 1 + (78) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$185 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (k$161 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 41 + #f + #f + #f + 1 + (23) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (32 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t))) + (k$177 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (43) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 122 + #f + #f + 2 + (-1 68) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(122 + (k$240) + ((Cyc-version + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(121 + (r$241) + ((k$240 (string-append "cyclone-" r$241))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$145 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 5 + #f + #f + #f + 1 + (3) + #f + (Cyc-fast-sub n$8$95 1) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (l$14$98 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + l$10$97 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$153 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 13 + #f + #f + #f + 1 + (13) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(17 + (r$155) + ((if r$155 + (k$154 a$18$102) + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(16 + (r$156) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(15 + (r$158) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(14 + (r$157) + ((lp$11$16$100 + k$154 + r$156 + r$157)) + #f)) + (cons r$158 a$18$102))) + #f)) + (car l$17$101))) + #f)) + (cddr l$17$101)))) + #f)) + (null? l$17$101))) + #t)) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (s2$30$106 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 36 + #f + #f + #f + 1 + (29) + #f + r$162 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$169 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 24 + #f + #f + #f + 1 + (24) + #f + (length result$41$110) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (v$45$114 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (rounded$122 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 118 + #f + #t + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$233 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 109 + #f + #f + #f + 1 + (109) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$193 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 108 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (i$66$130 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 2 + (98 58) + #f + #f + 0 + 2 + #t + #f + #f + #f + #f + #f + #f))) + (r$201 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 57 + #f + #f + #f + 1 + (56) + #f + (Cyc-fast-plus i$66$130 1) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f)))) + ((33 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((34 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((35 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((36 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((37 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((38 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((39 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((40 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((41 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((42 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((43 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((44 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$176) #f)))) + ((45 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((46 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$182) #f)))) + ((47 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((Cyc-version + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (122) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (48 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (flush-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (91 60 109) + #f + #f + 3 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + ((49 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((50 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((51 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$184) #f)))) + ((52 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$175) #f)))) + ((53 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((54 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((55 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((56 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((57 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((58 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((59 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((60 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((61 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((62 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((63 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((64 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((65 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((66 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((67 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((68 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((69 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((70 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((71 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((72 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((73 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((74 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((75 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((76 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((77 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((78 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((79 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((80 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (Cyc-fast-eq + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (7) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (89 104) + #f + #f + 2 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + ((81 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((82 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((83 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((84 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((85 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((86 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((87 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((88 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((89 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((90 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((91 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((92 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((93 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((94 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((95 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$242 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 123 + #f + #t + 0 + 0 + () + #f + 0 + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (x$51$123 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (117) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$218 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 66 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$210 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 75 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$226 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 79 + #f + #f + #f + 1 + (79) + #f + (Cyc-fast-sub t1$79$133 t0$57$125) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (96 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (k$154 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (14 17) + #f + #f + 1 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$170 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 27 + #f + #f + #f + 1 + (27) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f))) + (n$1$91 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (10) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$146 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 3 + #f + #f + #f + 1 + (3) + #f + (cons r$147 a$9$96) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (a$15$99 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + r$151 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$162 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 37 + #f + #f + #f + 1 + (37) + #f + (number->string count$21$103) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (s1$33$107 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 34 + #f + #f + #f + 1 + (29) + #f + r$163 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (i$46$115 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$178 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 43 + #f + #f + #f + 1 + (43) + #f + (vector-ref v$45$114 i$46$115) + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$234 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 114 + #f + #f + #f + 1 + (114) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(116 + (r$237) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(115 + (r$236) + ((k$235 (Cyc-fast-div r$236 1000))) + #f)) + (round__inline__ r$237))) + #f)) + (Cyc-fast-mul 1000 x$51$123))) + #t)) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$194 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 107 + #f + #f + #f + 1 + (107) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (result$67$131 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 4 + (97 94 90 59) + #f + #f + 0 + 4 + #f + #f + #f + #f + #f + #f + #f))) + (r$202 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 56 + #f + #f + #f + 1 + (56) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f)))) + ((97 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((98 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$198 loop$65$129 r$198) #f)))) + ((99 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((100 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((101 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((102 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((103 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((104 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((105 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((106 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((107 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((108 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((109 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((110 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((111 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((112 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((113 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((114 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((115 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((116 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((117 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$234 rounded$121 r$234) #f)))) + ((118 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((119 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((121 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((122 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((123 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((124 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((Cyc-fast-plus + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (58) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$219 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 65 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$211 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 74 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$227 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 82 + #f + #f + #f + 1 + (82) + #f + (Cyc-fast-div jifs$82$134 j/s$54$124) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$139 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (1) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$179 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 52 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$235 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (115) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (n$5$92 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + n$1$91 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$147 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 4 + #f + #f + #f + 1 + (4) + #f + '() + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (lp$11$16$100 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 19 + #f + #f + #f + 3 + (14 13 12) + #f + r$153 + 2 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$155 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 17 + #f + #f + #f + 1 + (17) + #f + (null? l$17$101) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$163 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 35 + #f + #f + #f + 1 + (35) + #f + (number->string input1$24$104) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$171 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 33 + #f + #f + #f + 1 + (33) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (ll$36$108 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 31 + #f + #f + #f + 1 + (27) + #f + r$164 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (name$47$116 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 3 + (112 71 65) + #f + #f + 0 + 3 + #f + #f + #f + #f + #f + #f + #f))) + (j/s$54$124 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 106 + #f + #f + #f + 1 + (83) + #f + r$194 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$195 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 105 + #f + #f + #f + 1 + (105) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$203 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 96 + #f + #f + #f + 1 + (96) + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (j1$76$132 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 87 + #f + #f + #f + 1 + (85) + #f + r$205 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((vector + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (50) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((round__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (116) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (create-n + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 11 + #f + #f + 2 + (33 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(11 + (k$139 n$1$91) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(10 + (r$140) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(9 + (n$5$92 a$6$93) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(8 + (lp$2$7$94) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(2 + (r$142) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(1 + (r$141) + ((lp$2$7$94 + k$139 + n$5$92 + a$6$93)) + #f)) + (set! lp$2$7$94 r$142))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(6 + (r$144) + ((if r$144 + (k$143 a$9$96) + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(5 + (r$145) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(4 + (r$147) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(3 + (r$146) + ((lp$2$7$94 + k$143 + r$145 + r$146)) + #f)) + (cons r$147 + a$9$96))) + #f)) + '())) + #f)) + (Cyc-fast-sub n$8$95 1)))) + #f)) + (Cyc-fast-eq n$8$95 0))) + #t)))) + #f)) + #f)) + #f)) + n$1$91 + r$140)) + #f)) + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (Cyc-fast-sub + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (85 80 6) + #f + #f + 3 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (Cyc-fast-lt + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (98 48) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$236 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 115 + #f + #f + #f + 1 + (115) + #f + (round__inline__ r$237) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$228 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 94 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$204 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 59 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$220 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$212 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 73 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (k$188 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (54) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (r$140 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 10 + #f + #f + #f + 1 + (10) + #f + '() + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (a$6$93 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + r$140 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (l$17$101 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 3 + (18 17 16) + #f + #f + 0 + 3 + #t + #f + #f + #f + #f + #f + #f))) + (r$156 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 16 + #f + #f + #f + 1 + (14) + #f + (cddr l$17$101) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$164 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 32 + #f + #f + #f + 1 + (32) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (name$39$109 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 30 + #f + #f + #f + 1 + (29) + #f + "diviter" + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$180 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 49 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (count$48$117 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (t0$57$125 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 104 + #f + #f + #f + 1 + (80) + #f + r$195 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$196 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 103 + #f + #f + #f + 1 + (103) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (t1$79$133 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 85 + #f + #f + #f + 1 + (80) + #f + r$206 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((equal? + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (24) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (number->string + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (38 36) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((Cyc-fast-mul + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (iterative-div2 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 22 + #f + #f + 2 + (27 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(22 + (k$150 l$10$97) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(21 + (r$151) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(20 + (l$14$98 a$15$99) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(19 + (lp$11$16$100) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(13 + (r$153) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(12 + (r$152) + ((lp$11$16$100 + k$150 + l$14$98 + a$15$99)) + #f)) + (set! lp$11$16$100 r$153))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(17 + (r$155) + ((if r$155 + (k$154 a$18$102) + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(16 + (r$156) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(15 + (r$158) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(14 + (r$157) + ((lp$11$16$100 + k$154 + r$156 + r$157)) + #f)) + (cons r$158 + a$18$102))) + #f)) + (car l$17$101))) + #f)) + (cddr l$17$101)))) + #f)) + (null? l$17$101))) + #t)))) + #f)) + #f)) + #f)) + l$10$97 + r$151)) + #f)) + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$237 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 116 + #f + #f + #f + 1 + (116) + #f + (Cyc-fast-mul 1000 x$51$123) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$229 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 93 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$221 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 63 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$213 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 72 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (jifs$82$134 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 83 + #f + #f + #f + 1 + (83) + #f + r$207 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (lp$2$7$94 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 8 + #f + #f + #f + 3 + (3 2 1) + #f + r$142 + 2 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$141 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 1 + #f + #f + #f + 0 + () + #f + (set! lp$2$7$94 r$142) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (a$18$102 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (15 17) + #f + #f + 0 + 2 + #t + #f + #f + #f + #f + #f + #f))) + (r$157 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 14 + #f + #f + #f + 1 + (14) + #f + (cons r$158 a$18$102) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$165 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 28 + #f + #f + #f + 1 + (23) + #f + (string-append + name$39$109 + ":" + s1$33$107 + ":" + s2$30$106) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (result$41$110 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (25) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$181 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 46 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (thunk$49$118 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (57) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$189 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 113 + #f + #f + #f + 0 + () + #f + (set! rounded$121 r$234) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (j0$60$126 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 102 + #f + #f + #f + 1 + (85) + #f + r$196 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$197 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 54 + #f + #f + #f + 0 + () + #f + (set! loop$65$129 r$198) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$205 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 88 + #f + #f + #f + 1 + (88) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((cons . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (15 4) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (car . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (16) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((Cyc-fast-div + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (115 83) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (hide . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 53 + #f + #f + 2 + (-1 34) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(53 + (k$174 r$42$111 x$43$112) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(45 + (r$175) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(42 + (r$176) + ((call-with-values k$174 r$175 r$176)) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(44 + (k$177 v$45$114 i$46$115) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(43 (r$178) ((r$178 k$177 x$43$112)) #f)) + (vector-ref v$45$114 i$46$115))) + #t)))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(52 + (k$179) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(50 + (r$184) + ((vector + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(49 + (r$180) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(48 + (k$182) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(47 + (r$183) + ((if r$183 + (k$182 0) + (k$182 1))) + #f)) + (Cyc-fast-lt r$42$111 100))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 + (r$181) + ((values k$179 r$180 r$181)) + #f)))) + #f)) + values + r$184)) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(51 (k$185 x$44$113) ((k$185 x$44$113)) #t)))) + #t)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (jiffies-per-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (108) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$230 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 92 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$222 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 62 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$214 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 71 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (secs$85$135 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 80 + #f + #f + #f + 2 + (75 63) + #f + r$208 + 0 + 2 + #f + #f + #f + #f + #f + #f + #f))) + (k$150 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (12) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$174 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (42) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$182 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 48 + #f + #f + #f + 2 + (47 47) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 (r$181) ((values k$179 r$180 r$181)) #f)) + 2 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$142 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 2 + #f + #f + #f + 1 + (2) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(6 + (r$144) + ((if r$144 + (k$143 a$9$96) + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(5 + (r$145) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(4 + (r$147) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(3 + (r$146) + ((lp$2$7$94 k$143 r$145 r$146)) + #f)) + (cons r$147 a$9$96))) + #f)) + '())) + #f)) + (Cyc-fast-sub n$8$95 1)))) + #f)) + (Cyc-fast-eq n$8$95 0))) + #t)) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (n$8$95 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 6) + #f + #f + 0 + 2 + #t + #f + #f + #f + #f + #f + #f))) + (r$158 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 15 + #f + #f + #f + 1 + (15) + #f + (car l$17$101) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (count$21$103 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 40 + #f + #t + 1000000 + 3 + (38 34 23) + #f + 1000000 + 0 + 3 + #f + #f + #f + #f + #f + #f + #f))) + (r$166 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 26 + #f + #f + #f + 1 + (23) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(27 + (k$170) + ((iterative-div2 k$170 ll$36$108)) + #t)) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$42$111 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (48) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (ok?$50$119 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (97) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$190 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 112 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (i$63$127 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 100 + #f + #t + 0 + 1 + (54) + #f + 0 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$198 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 55 + #f + #f + #f + 1 + (55) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(98 + (k$199 i$66$130 result$67$131) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(97 + (r$200) + ((if r$200 + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(58 + () + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(57 + (r$201) + ((thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + r$201 + r$202)) + #f)))) + #f)) + (Cyc-fast-plus i$66$130 1))) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(96 + (r$203) + ((if r$203 + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(89 + () + ((current-jiffy + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(88 + (r$205) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(86 + (r$206) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(85 + (t1$79$133) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(84 + (r$207) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(83 + (jifs$82$134) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(82 + (r$227) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(81 + (r$208) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(80 + (secs$85$135) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(79 + (r$226) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(78 + (r$209) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(77 + (secs2$88$136) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(76 + () + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + secs$85$135)) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + secs$85$135)) + #f)) + "Elapsed time: ")) + #f)))) + #f)) + r$209)) + #f)) + r$226)) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)) + r$208)) + #f)) + (inexact__inline__ + r$227))) + #f)) + (Cyc-fast-div + jifs$82$134 + j/s$54$124))) + #f)) + r$207)) + #f)) + (Cyc-fast-sub + j1$76$132 + j0$60$126))) + #f)) + r$206)) + #f)))) + #f)) + r$205)) + #f)))) + #f))) + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(95 + () + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: ")) + #f))))) + #f)) + result$67$131))) + #f)) + (Cyc-fast-lt i$66$130 count$48$117))) + #t)) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$206 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 86 + #f + #f + #f + 1 + (86) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((write . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (94 73 75) + #f + #f + 3 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (call-with-values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (42) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (newline + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 4 + (93 62 70 111) + #f + #f + 4 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (92 61 110) + #f + #f + 3 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((main . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 41 + #f + #f + 2 + (123 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(41 + (k$161) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(40 + (count$21$103) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(39 + (input1$24$104) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(38 + (output$27$105) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(37 + (r$162) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(36 + (s2$30$106) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(35 + (r$163) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(34 + (s1$33$107) + ((hide #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(33 + (r$171) + ((create-n + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(32 + (r$164) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(31 + (ll$36$108) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(30 + (name$39$109) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(29 + () + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(28 + (r$165) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(26 + (r$166) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(23 + (r$167) + ((run-r7rs-benchmark + k$161 + r$165 + count$21$103 + r$166 + r$167)) + #f)) + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(25 + (k$168 result$41$110) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(24 + (r$169) + ((k$168 (equal? + r$169 + output$27$105))) + #f)) + (length + result$41$110))) + #t)))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(27 + (k$170) + ((iterative-div2 + k$170 + ll$36$108)) + #t)))) + #f)) + (string-append + name$39$109 + ":" + s1$33$107 + ":" + s2$30$106))) + #f)))) + #f)) + "diviter")) + #f)) + r$164)) + #f)) + r$171)) + #f)) + count$21$103 + input1$24$104)) + #f)) + r$163)) + #f)) + (number->string + input1$24$104))) + #f)) + r$162)) + #f)) + (number->string count$21$103))) + #f)) + 500)) + #f)) + 1000)) + #f)) + 1000000)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$231 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 90 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$223 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 61 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$215 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 70 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (secs2$88$136 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 77 + #f + #f + #f + 1 + (73) + #f + r$209 + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$207 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 84 + #f + #f + #f + 1 + (84) + #f + (Cyc-fast-sub j1$76$132 j0$60$126) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$199 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 3 + (90 59 56) + #f + #f + 2 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$143 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (3 6) + #f + #f + 1 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (a$9$96 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (4 6) + #f + #f + 0 + 2 + #t + #f + #f + #f + #f + #f + #f))) + (r$151 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 21 + #f + #f + #f + 1 + (21) + #f + '() + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (input1$24$104 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 39 + #f + #t + 1000 + 2 + (36 34) + #f + 1000 + 0 + 2 + #t + #f + #f + #f + #f + #f + #f))) + (r$167 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 23 + #f + #f + #f + 1 + (23) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(25 + (k$168 result$41$110) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(24 + (r$169) + ((k$168 (equal? r$169 output$27$105))) + #f)) + (length result$41$110))) + #t)) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (x$43$112 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (43) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$175 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 45 + #f + #f + #f + 1 + (42) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(52 + (k$179) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(50 + (r$184) + ((vector + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(49 + (r$180) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(48 + (k$182) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(47 + (r$183) + ((if r$183 (k$182 0) (k$182 1))) + #f)) + (Cyc-fast-lt r$42$111 100))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 + (r$181) + ((values k$179 r$180 r$181)) + #f)))) + #f)) + values + r$184)) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(51 (k$185 x$44$113) ((k$185 x$44$113)) #t)))) + #t)) + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$183 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 47 + #f + #f + #f + 1 + (47) + #f + (Cyc-fast-lt r$42$111 100) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$191 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 111 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (result$64$128 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 100 + #f + #t + #f + 1 + (54) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (44) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (50 46) + #f + #f + 1 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (display + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 13 + (95 63 64 65 66 67 69 71 72 74 76 112 113) + #f + #f + 13 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 120 + #f + #f + 2 + (-1 23) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(120 + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(119 + (rounded$121) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(118 + (rounded$122) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(114 + (r$234) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(113 + (r$189) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(112 + (r$190) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(111 + (r$191) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(110 + (r$192) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(109 + (r$233) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(108 + (r$193) + ((jiffies-per-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(107 + (r$194) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(106 + (j/s$54$124) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(105 + (r$195) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(104 + (t0$57$125) + ((current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(103 + (r$196) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(102 + (j0$60$126) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(101 + () + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(100 + (i$63$127 + result$64$128) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(99 + (loop$65$129) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(55 + (r$198) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(54 + (r$197) + ((loop$65$129 + k$188 + i$63$127 + result$64$128)) + #f)) + (set! loop$65$129 + r$198))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(98 + (k$199 i$66$130 + result$67$131) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(97 + (r$200) + ((if r$200 + (#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(58 + () + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(57 + (r$201) + ((thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + r$201 + r$202)) + #f)))) + #f)) + (Cyc-fast-plus + i$66$130 + 1))) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(96 + (r$203) + ((if r$203 + (#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(89 + () + ((current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(88 + (r$205) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(86 + (r$206) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(85 + (t1$79$133) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(84 + (r$207) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(83 + (jifs$82$134) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(82 + (r$227) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(81 + (r$208) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(80 + (secs$85$135) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(79 + (r$226) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(78 + (r$209) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(77 + (secs2$88$136) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(76 + () + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + secs$85$135)) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + secs$85$135)) + #f)) + "Elapsed time: ")) + #f)))) + #f)) + r$209)) + #f)) + r$226)) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)) + r$208)) + #f)) + (inexact__inline__ + r$227))) + #f)) + (Cyc-fast-div + jifs$82$134 + j/s$54$124))) + #f)) + r$207)) + #f)) + (Cyc-fast-sub + j1$76$132 + j0$60$126))) + #f)) + r$206)) + #f)))) + #f)) + r$205)) + #f)))) + #f))) + (#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(95 + () + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: ")) + #f))))) + #f)) + result$67$131))) + #f)) + (Cyc-fast-lt + i$66$130 + count$48$117))) + #t)))) + #f)) + #f)) + #f)) + 0 + #f)) + #f)))) + #f)) + r$196)) + #f)))) + #f)) + r$195)) + #f)))) + #f)) + r$194)) + #f)))) + #f)) + r$233)) + #f)))) + #f)))) + #f)) + name$47$116)) + #f)) + "Running ")) + #f)) + (set! rounded$121 r$234))) + #f)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(116 + (r$237) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(115 + (r$236) + ((k$235 (Cyc-fast-div + r$236 + 1000))) + #f)) + (round__inline__ r$237))) + #f)) + (Cyc-fast-mul 1000 x$51$123))) + #t)))) + #f)) + #f)) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (87 106) + #f + #f + 2 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$232 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 91 + #f + #f + #f + 1 + (91) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$224 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 60 + #f + #f + #f + 1 + (60) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$216 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 69 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$208 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 81 + #f + #f + #f + 1 + (81) + #f + (inexact__inline__ r$227) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$168 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (24) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (k$240 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 122 + #f + #f + #f + 1 + (121) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$144 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 6 + #f + #f + #f + 1 + (6) + #f + (Cyc-fast-eq n$8$95 0) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (l$10$97 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (21) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$152 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 12 + #f + #f + #f + 0 + () + #f + (set! lp$11$16$100 r$153) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (output$27$105 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 38 + #f + #t + 500 + 1 + (24) + #f + 500 + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$176 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 42 + #f + #f + #f + 1 + (42) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(44 + (k$177 v$45$114 i$46$115) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(43 (r$178) ((r$178 k$177 x$43$112)) #f)) + (vector-ref v$45$114 i$46$115))) + #t)) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$184 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 50 + #f + #f + #f + 1 + (50) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(51 (k$185 x$44$113) ((k$185 x$44$113)) #t)) + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (x$44$113 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (rounded$121 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 119 + #f + #f + #f + 2 + (114 79) + #f + r$234 + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$192 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 110 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (loop$65$129 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 99 + #f + #f + #f + 3 + (56 55 54) + #f + r$198 + 2 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (r$200 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 97 + #f + #f + #f + 1 + (97) + #f + (Cyc-fast-lt i$66$130 count$48$117) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((cddr . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (17) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (null? . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (length + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (string-append + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (121 29) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ()))) + */ +/* +"---------------- after cps optimizations (1):" + */ +/* +((define create-n + (lambda-11-cont + (k$139 n$1$91) + ((lambda-9 + (n$5$92 a$6$93) + ((lambda-8 + (lp$2$7$94) + ((lambda-1 + (r$141) + (lp$2$7$94 k$139 n$5$92 a$6$93)) + (set! lp$2$7$94 + (lambda-7-cont + (k$143 n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))))) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda-22-cont + (k$150 l$10$97) + ((lambda-20 + (l$14$98 a$15$99) + ((lambda-19 + (lp$11$16$100) + ((lambda-12 + (r$152) + (lp$11$16$100 k$150 l$14$98 a$15$99)) + (set! lp$11$16$100 + (lambda-18-cont + (k$154 l$17$101 a$18$102) + (if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))))) + #f)) + l$10$97 + '()))) + (define main + (lambda-41-cont + (k$161) + (hide (lambda-33 + (r$171) + (create-n + (lambda-31 + (ll$36$108) + ((lambda-28 + (r$165) + (run-r7rs-benchmark + k$161 + r$165 + 1000000 + (lambda-27-cont + (k$170) + (iterative-div2 k$170 ll$36$108)) + (lambda-25-cont + (k$168 result$41$110) + (k$168 (equal? (length result$41$110) 500))))) + (string-append + "diviter" + ":" + "1000" + ":" + "1000000"))) + r$171)) + 1000000 + 1000))) + (define hide + (lambda-53-cont + (k$174 r$42$111 x$43$112) + (call-with-values + k$174 + (lambda-52-cont + (k$179) + (vector + (lambda-49 + (r$180) + ((lambda-48-cont + (k$182) + (if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + (lambda-46 (r$181) (values k$179 r$180 r$181)))) + values + (lambda-51-cont + (k$185 x$44$113) + (k$185 x$44$113)))) + (lambda-44-cont + (k$177 v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) k$177 x$43$112))))) + (define run-r7rs-benchmark + (lambda-120-cont + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda-119 + (rounded$121) + ((lambda-113 + (r$189) + (display + (lambda-112 + (r$190) + (display + (lambda-111 + (r$191) + (newline + (lambda-110 + (r$192) + (current-output-port + (lambda-109 + (r$233) + (flush-output-port + (lambda-108 + (r$193) + (jiffies-per-second + (lambda-106 + (j/s$54$124) + (current-second + (lambda-104 + (t0$57$125) + (current-jiffy + (lambda-102 + (j0$60$126) + ((lambda-99 + (loop$65$129) + ((lambda-54 + (r$197) + (loop$65$129 k$188 0 #f)) + (set! loop$65$129 + (lambda-98-cont + (k$199 i$66$130 + result$67$131) + (if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + (lambda-56 + (r$202) + (loop$65$129 + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202))) + (ok?$50$119 + (lambda-96 + (r$203) + (if r$203 + (current-jiffy + (lambda-87 + (j1$76$132) + (current-second + (lambda-85 + (t1$79$133) + (rounded$121 + (lambda-77 + (secs2$88$136) + (display + (lambda-75 + (r$210) + (write (lambda-74 + (r$211) + (display + (lambda-73 + (r$212) + (write (lambda-72 + (r$213) + (display + (lambda-71 + (r$214) + (display + (lambda-70 + (r$215) + (newline + (lambda-69 + (r$216) + (display + (lambda-68 + (r$217) + (this-scheme-implementation-name + (lambda-67 + (r$225) + (display + (lambda-66 + (r$218) + (display + (lambda-65 + (r$219) + (display + (lambda-64 + (r$220) + (display + (lambda-63 + (r$221) + (display + (lambda-62 + (r$222) + (newline + (lambda-61 + (r$223) + (current-output-port + (lambda-60 + (r$224) + (flush-output-port + (lambda-59 + (r$204) + (k$199 result$67$131)) + r$224)))))) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + ",")) + name$47$116)) + ",")) + r$225)))) + "+!CSVLINE!+")))) + name$47$116)) + ") for ")) + secs2$88$136)) + " seconds (")) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + "Elapsed time: ")) + (Cyc-fast-sub + t1$79$133 + t0$57$125)))))) + (display + (lambda-94 + (r$228) + (write (lambda-93 + (r$229) + (newline + (lambda-92 + (r$230) + (current-output-port + (lambda-91 + (r$232) + (flush-output-port + (lambda-90 + (r$231) + (k$199 result$67$131)) + r$232)))))) + result$67$131)) + "ERROR: returned incorrect result: "))) + result$67$131)))))) + #f)))))))) + r$233)))))) + name$47$116)) + "Running ")) + (set! rounded$121 + (lambda-117-cont + (k$235 x$51$123) + (k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000)))))) + #f))) + (define this-scheme-implementation-name + (lambda-122-cont + (k$240) + (Cyc-version + (lambda-121 + (r$241) + (k$240 (string-append "cyclone-" r$241)))))) + (main %halt)) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + "" + (size hash compare associate entries)) + #(191 + #[procedure] + #[procedure] + #[procedure] + #(() + ((1 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + () + () + ((7 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (lp$2$7$94) #f)))) + ((8 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((9 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((11 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((12 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + ((%halt . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (-1) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (Cyc-fast-mul + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (inexact__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (75 63) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (iterative-div2 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 22 + #f + #f + 2 + (27 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(22 + (k$150 l$10$97) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(20 + (l$14$98 a$15$99) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(19 + (lp$11$16$100) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(12 + (r$152) + ((lp$11$16$100 k$150 l$14$98 a$15$99)) + #f)) + (set! lp$11$16$100 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t))))) + #f)) + #f)) + #f)) + l$10$97 + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + ((18 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (lp$11$16$100) #f)))) + ((19 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((20 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((22 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((25 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((27 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((28 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((31 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$241 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 121 + #f + #f + #f + 1 + (121) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$193 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 108 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$233 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 109 + #f + #f + #f + 1 + (109) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$189 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 113 + #f + #f + #f + 0 + () + #f + (set! rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t))) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (v$45$114 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$181 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 46 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (result$41$110 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (25) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$165 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 28 + #f + #f + #f + 1 + (28) + #f + (string-append + "diviter" + ":" + "1000" + ":" + "1000000") + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$221 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 63 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$225 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 67 + #f + #f + #f + 1 + (67) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 122 + #f + #f + 2 + (-1 68) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(122 + (k$240) + ((Cyc-version + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(121 + (r$241) + ((k$240 (string-append "cyclone-" r$241))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (r$217 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 68 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$213 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 72 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (thunk$49$118 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (i$66$130 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 2 + (56 98) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$197 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 54 + #f + #f + #f + 0 + () + #f + (set! loop$65$129 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(98 + (k$199 i$66$130 result$67$131) + ((if (Cyc-fast-lt i$66$130 count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus i$66$130 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (a$18$102 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (18 18) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (l$14$98 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + l$10$97 + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (r$141 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 1 + #f + #f + #f + 0 + () + #f + (set! lp$2$7$94 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (lp$2$7$94 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 8 + #f + #f + #f + 3 + (7 8 1) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (j0$60$126 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 102 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #f + #t + #f + #f))) + (r$229 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 93 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$161 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 41 + #f + #f + #f + 1 + (28) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$185 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (k$177 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f)))) + ((33 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + () + ((41 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((44 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((46 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$182) #f)))) + () + ((Cyc-version + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (122) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (flush-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (91 60 109) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (car . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (cons . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (18 7) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (48 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((49 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((51 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((52 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((53 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((54 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((56 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((59 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((60 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((61 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((62 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((63 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((64 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((65 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((66 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((67 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((68 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((69 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((70 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((71 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((72 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((73 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((74 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((75 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((77 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((jiffies-per-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (108) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (96 104) + #f + #f + 2 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-eq + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (7) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-div + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (117 75 63) + #f + #f + 3 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (hide . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 53 + #f + #f + 2 + (-1 41) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(53 + (k$174 r$42$111 x$43$112) + ((call-with-values + k$174 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(52 + (k$179) + ((vector + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(49 + (r$180) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(48 + (k$182) + ((if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 + (r$181) + ((values k$179 r$180 r$181)) + #f)))) + #f)) + values + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(51 + (k$185 x$44$113) + ((k$185 x$44$113)) + #t)))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(44 + (k$177 v$45$114 i$46$115) + (((vector-ref v$45$114 i$46$115) k$177 x$43$112)) + #t)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + ((85 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((87 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((90 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((91 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((92 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((93 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((94 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((x$51$123 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (117) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$190 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 112 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (i$46$115 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$42$111 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (48) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (n$1$91 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (11) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$222 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 62 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$218 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 66 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$214 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 71 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$210 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 75 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (ok?$50$119 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (r$202 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 56 + #f + #f + #f + 1 + (56) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (result$67$131 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 4 + (98 94 90 59) + #f + #f + 0 + 4 + #f + #f + #f + #t + #t + #f + #f))) + (k$154 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (18 18) + #f + #f + 1 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (a$15$99 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + '() + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$150 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (12) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (n$8$95 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$230 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 92 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$170 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 27 + #f + #f + #f + 1 + (27) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f))) + (k$174 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (53) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f))) + (k$182 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 48 + #f + #f + #f + 2 + (48 48) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 (r$181) ((values k$179 r$180 r$181)) #f)) + 2 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (96 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((98 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$65$129) #f)))) + ((99 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((102 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((104 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((106 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((108 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((109 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((110 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((111 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((call-with-values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (53) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (92 61 110) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (newline + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 4 + (93 62 70 111) + #f + #f + 4 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (write . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (94 73 75) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (112 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((113 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((117 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (rounded$121) #f)))) + () + ((119 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((121 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((122 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((Cyc-fast-plus + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (56) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (main . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 41 + #f + #f + 2 + (-1 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(41 + (k$161) + ((hide #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(33 + (r$171) + ((create-n + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(31 + (ll$36$108) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(28 + (r$165) + ((run-r7rs-benchmark + k$161 + r$165 + 1000000 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(27 + (k$170) + ((iterative-div2 + k$170 + ll$36$108)) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(25 + (k$168 result$41$110) + ((k$168 (equal? + (length + result$41$110) + 500))) + #t)))) + #f)) + (string-append + "diviter" + ":" + "1000" + ":" + "1000000"))) + #f)) + r$171)) + #f)) + 1000000 + 1000)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$191 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 111 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (x$43$112 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (ll$36$108 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 31 + #f + #f + #f + 1 + (27) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$171 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 33 + #f + #f + #f + 1 + (33) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$235 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$223 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 61 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$219 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 65 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$215 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 70 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$211 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 74 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (secs2$88$136 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 77 + #f + #f + #f + 1 + (73) + #f + #f + 0 + 1 + #f + #f + #f + #t + #t + #f + #f))) + (j1$76$132 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 87 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$203 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 96 + #f + #f + #f + 1 + (96) + #f + #f + 0 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (k$199 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 3 + (90 59 56) + #f + #f + 2 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (lp$11$16$100 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 19 + #f + #f + #f + 3 + (18 19 12) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (a$9$96 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (k$143 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 1 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (n$5$92 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + n$1$91 + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$139 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (1) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (j/s$54$124 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 106 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #f + #t + #f + #f))) + (name$47$116 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 3 + (112 71 65) + #f + #f + 0 + 3 + #f + #f + #f + #f + #t + #f + #f))) + (r$231 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 90 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$179 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 52 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (44) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (52 46) + #f + #f + 1 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (vector + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (52) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (display + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 13 + (96 63 64 65 66 67 69 71 72 74 77 112 113) + #f + #f + 13 + 0 + #f + #f + #f + #f + #t + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((round__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (current-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (87 106) + #f + #f + 2 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-lt + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (98 48) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-sub + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 4 + (85 75 63 7) + #f + #f + 4 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (create-n + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 11 + #f + #f + 2 + (33 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(11 + (k$139 n$1$91) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(9 + (n$5$92 a$6$93) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(8 + (lp$2$7$94) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(1 + (r$141) + ((lp$2$7$94 k$139 n$5$92 a$6$93)) + #f)) + (set! lp$2$7$94 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t))))) + #f)) + #f)) + #f)) + n$1$91 + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 120 + #f + #f + 2 + (-1 28) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(120 + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(119 + (rounded$121) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(113 + (r$189) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(112 + (r$190) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(111 + (r$191) + ((newline + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(110 + (r$192) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(109 + (r$233) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(108 + (r$193) + ((jiffies-per-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(106 + (j/s$54$124) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(104 + (t0$57$125) + ((current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(102 + (j0$60$126) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(99 + (loop$65$129) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(54 + (r$197) + ((loop$65$129 + k$188 + 0 + #f)) + #f)) + (set! loop$65$129 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(98 + (k$199 i$66$130 + result$67$131) + ((if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$233)) + #f)))) + #f)))) + #f)) + name$47$116)) + #f)) + "Running ")) + #f)) + (set! rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ + (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$192 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 110 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (x$44$113 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$180 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 49 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (l$10$97 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (22) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$240 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 122 + #f + #f + #f + 1 + (121) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$204 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 59 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$224 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 60 + #f + #f + #f + 1 + (60) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (r$220 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$216 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 69 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$212 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 73 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (rounded$121 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 119 + #f + #f + #f + 2 + (119 85) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t)) + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (t1$79$133 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 85 + #f + #f + #f + 1 + (85) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (count$48$117 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$188 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (54) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (loop$65$129 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 99 + #f + #f + #f + 3 + (56 99 54) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(98 + (k$199 i$66$130 result$67$131) + ((if (Cyc-fast-lt i$66$130 count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus i$66$130 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (l$17$101 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 3 + (18 18 18) + #f + #f + 0 + 3 + #t + #f + #f + #t + #t + #f + #f))) + (r$152 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 12 + #f + #f + #f + 0 + () + #f + (set! lp$11$16$100 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (a$6$93 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + '() + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (t0$57$125 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 104 + #f + #f + #f + 1 + (85) + #f + #f + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (r$228 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 94 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$232 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 91 + #f + #f + #f + 1 + (91) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (k$168 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((string-append + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (121 31) + #f + #f + 2 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (length + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (equal? + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (cddr . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (null? . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((-1 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(? ? () #t))))))) + */ +/* +"---------------- after cps optimizations (2):" + */ +/* +((define create-n + (lambda-11-cont + (k$139 n$1$91) + ((lambda-9 + (n$5$92 a$6$93) + ((lambda-8 + (lp$2$7$94) + ((lambda-1 + (r$141) + (lp$2$7$94 k$139 n$5$92 a$6$93)) + (set! lp$2$7$94 + (lambda-7-cont + (k$143 n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))))) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda-22-cont + (k$150 l$10$97) + ((lambda-20 + (l$14$98 a$15$99) + ((lambda-19 + (lp$11$16$100) + ((lambda-12 + (r$152) + (lp$11$16$100 k$150 l$14$98 a$15$99)) + (set! lp$11$16$100 + (lambda-18-cont + (k$154 l$17$101 a$18$102) + (if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))))) + #f)) + l$10$97 + '()))) + (define main + (lambda-41-cont + (k$161) + (hide (lambda-33 + (r$171) + (create-n + (lambda-31 + (ll$36$108) + (run-r7rs-benchmark + k$161 + "diviter:1000:1000000" + 1000000 + (lambda-27-cont + (k$170) + (iterative-div2 k$170 ll$36$108)) + (lambda-25-cont + (k$168 result$41$110) + (k$168 (equal? (length result$41$110) 500))))) + r$171)) + 1000000 + 1000))) + (define hide + (lambda-53-cont + (k$174 r$42$111 x$43$112) + (call-with-values + k$174 + (lambda-52-cont + (k$179) + (vector + (lambda-49 + (r$180) + ((lambda-48-cont + (k$182) + (if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + (lambda-46 (r$181) (values k$179 r$180 r$181)))) + values + (lambda-51-cont + (k$185 x$44$113) + (k$185 x$44$113)))) + (lambda-44-cont + (k$177 v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) k$177 x$43$112))))) + (define run-r7rs-benchmark + (lambda-120-cont + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda-119 + (rounded$121) + ((lambda-113 + (r$189) + (display + (lambda-112 + (r$190) + (display + (lambda-111 + (r$191) + (newline + (lambda-110 + (r$192) + (current-output-port + (lambda-109 + (r$233) + (flush-output-port + (lambda-108 + (r$193) + (jiffies-per-second + (lambda-106 + (j/s$54$124) + (current-second + (lambda-104 + (t0$57$125) + (current-jiffy + (lambda-102 + (j0$60$126) + ((lambda-99 + (loop$65$129) + ((lambda-54 + (r$197) + (loop$65$129 k$188 0 #f)) + (set! loop$65$129 + (lambda-98-cont + (k$199 i$66$130 + result$67$131) + (if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + (lambda-56 + (r$202) + (loop$65$129 + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202))) + (ok?$50$119 + (lambda-96 + (r$203) + (if r$203 + (current-jiffy + (lambda-87 + (j1$76$132) + (current-second + (lambda-85 + (t1$79$133) + (rounded$121 + (lambda-77 + (secs2$88$136) + (display + (lambda-75 + (r$210) + (write (lambda-74 + (r$211) + (display + (lambda-73 + (r$212) + (write (lambda-72 + (r$213) + (display + (lambda-71 + (r$214) + (display + (lambda-70 + (r$215) + (newline + (lambda-69 + (r$216) + (display + (lambda-68 + (r$217) + (this-scheme-implementation-name + (lambda-67 + (r$225) + (display + (lambda-66 + (r$218) + (display + (lambda-65 + (r$219) + (display + (lambda-64 + (r$220) + (display + (lambda-63 + (r$221) + (display + (lambda-62 + (r$222) + (newline + (lambda-61 + (r$223) + (current-output-port + (lambda-60 + (r$224) + (flush-output-port + (lambda-59 + (r$204) + (k$199 result$67$131)) + r$224)))))) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + ",")) + name$47$116)) + ",")) + r$225)))) + "+!CSVLINE!+")))) + name$47$116)) + ") for ")) + secs2$88$136)) + " seconds (")) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + "Elapsed time: ")) + (Cyc-fast-sub + t1$79$133 + t0$57$125)))))) + (display + (lambda-94 + (r$228) + (write (lambda-93 + (r$229) + (newline + (lambda-92 + (r$230) + (current-output-port + (lambda-91 + (r$232) + (flush-output-port + (lambda-90 + (r$231) + (k$199 result$67$131)) + r$232)))))) + result$67$131)) + "ERROR: returned incorrect result: "))) + result$67$131)))))) + #f)))))))) + r$233)))))) + name$47$116)) + "Running ")) + (set! rounded$121 + (lambda-117-cont + (k$235 x$51$123) + (k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000)))))) + #f))) + (define this-scheme-implementation-name + (lambda-122-cont + (k$240) + (Cyc-version + (lambda-121 + (r$241) + (k$240 (string-append "cyclone-" r$241)))))) + (main %halt)) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + "" + (size hash compare associate entries)) + #(189 + #[procedure] + #[procedure] + #[procedure] + #(() + ((1 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + () + () + ((7 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (lp$2$7$94) #f)))) + ((8 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((9 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((11 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((12 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + ((%halt . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (-1) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (Cyc-fast-mul + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (inexact__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (75 63) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (iterative-div2 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 22 + #f + #f + 2 + (27 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(22 + (k$150 l$10$97) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(20 + (l$14$98 a$15$99) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(19 + (lp$11$16$100) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(12 + (r$152) + ((lp$11$16$100 k$150 l$14$98 a$15$99)) + #f)) + (set! lp$11$16$100 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t))))) + #f)) + #f)) + #f)) + l$10$97 + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + ((18 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (lp$11$16$100) #f)))) + ((19 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((20 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((22 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((25 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((27 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((31 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$241 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 121 + #f + #f + #f + 1 + (121) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$193 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 108 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (r$233 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 109 + #f + #f + #f + 1 + (109) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$189 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 113 + #f + #f + #f + 0 + () + #f + (set! rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t))) + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (v$45$114 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$181 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 46 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (result$41$110 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (25) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$221 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 63 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$225 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 67 + #f + #f + #f + 1 + (67) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 122 + #f + #f + 2 + (-1 68) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(122 + (k$240) + ((Cyc-version + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(121 + (r$241) + ((k$240 (string-append "cyclone-" r$241))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (r$217 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 68 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$213 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 72 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (thunk$49$118 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (i$66$130 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 2 + (56 98) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$197 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 54 + #f + #f + #f + 0 + () + #f + (set! loop$65$129 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(98 + (k$199 i$66$130 result$67$131) + ((if (Cyc-fast-lt i$66$130 count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus i$66$130 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (a$18$102 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (18 18) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (l$14$98 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + l$10$97 + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (r$141 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 1 + #f + #f + #f + 0 + () + #f + (set! lp$2$7$94 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (lp$2$7$94 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 8 + #f + #f + #f + 3 + (7 8 1) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (j0$60$126 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 102 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #f + #t + #f + #f))) + (r$229 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 93 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$161 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 41 + #f + #f + #f + 1 + (31) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f))) + (k$185 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (k$177 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f)))) + ((33 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + () + ((41 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((44 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((46 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$182) #f)))) + () + ((Cyc-version + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (122) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (flush-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (91 60 109) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (car . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (cons . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (18 7) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (48 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((49 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((51 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((52 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((53 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((54 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((56 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((59 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((60 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((61 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((62 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((63 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((64 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((65 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((66 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((67 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((68 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((69 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((70 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((71 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((72 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((73 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((74 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((75 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((77 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((jiffies-per-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (108) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (96 104) + #f + #f + 2 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-eq + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (7) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-div + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (117 75 63) + #f + #f + 3 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (hide . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 53 + #f + #f + 2 + (-1 41) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(53 + (k$174 r$42$111 x$43$112) + ((call-with-values + k$174 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(52 + (k$179) + ((vector + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(49 + (r$180) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(48 + (k$182) + ((if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 + (r$181) + ((values k$179 r$180 r$181)) + #f)))) + #f)) + values + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(51 + (k$185 x$44$113) + ((k$185 x$44$113)) + #t)))) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(44 + (k$177 v$45$114 i$46$115) + (((vector-ref v$45$114 i$46$115) k$177 x$43$112)) + #t)))) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + ((85 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((87 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((90 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((91 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((92 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((93 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((94 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((x$51$123 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (117) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$190 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 112 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (i$46$115 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 44 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$42$111 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (48) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (n$1$91 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (11) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$222 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 62 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$218 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 66 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$214 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 71 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$210 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 75 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (ok?$50$119 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 1 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (r$202 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 56 + #f + #f + #f + 1 + (56) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (result$67$131 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 4 + (98 94 90 59) + #f + #f + 0 + 4 + #f + #f + #f + #t + #t + #f + #f))) + (k$154 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 2 + (18 18) + #f + #f + 1 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (a$15$99 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 20 + #f + #f + #f + 1 + (12) + #f + '() + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$150 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (12) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (n$8$95 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$230 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 92 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$170 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 27 + #f + #f + #f + 1 + (27) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f))) + (k$174 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (53) + #f + #f + 0 + 1 + #t + #f + #t + #f + #f + #f + #f))) + (k$182 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 48 + #f + #f + #f + 2 + (48 48) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(46 (r$181) ((values k$179 r$180 r$181)) #f)) + 2 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (96 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((98 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$65$129) #f)))) + ((99 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((102 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((104 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((106 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((108 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((109 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((110 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((111 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((call-with-values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (53) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (current-output-port + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (92 61 110) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (newline + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 4 + (93 62 70 111) + #f + #f + 4 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (write . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 3 + (94 73 75) + #f + #f + 3 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (112 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((113 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((117 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (rounded$121) #f)))) + () + ((119 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((121 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((122 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((Cyc-fast-plus + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (56) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (main . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 41 + #f + #f + 2 + (-1 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(41 + (k$161) + ((hide #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(33 + (r$171) + ((create-n + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(31 + (ll$36$108) + ((run-r7rs-benchmark + k$161 + "diviter:1000:1000000" + 1000000 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(27 + (k$170) + ((iterative-div2 + k$170 + ll$36$108)) + #t)) + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(25 + (k$168 result$41$110) + ((k$168 (equal? + (length result$41$110) + 500))) + #t)))) + #f)) + r$171)) + #f)) + 1000000 + 1000)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$191 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 111 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (x$43$112 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 53 + #f + #f + #f + 1 + (44) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (ll$36$108 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 31 + #f + #f + #f + 1 + (27) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (r$171 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 33 + #f + #f + #f + 1 + (33) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$235 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 117 + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$223 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 61 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$219 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 65 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$215 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 70 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$211 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 74 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (secs2$88$136 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 77 + #f + #f + #f + 1 + (73) + #f + #f + 0 + 1 + #f + #f + #f + #t + #t + #f + #f))) + (j1$76$132 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 87 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (r$203 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 96 + #f + #f + #f + 1 + (96) + #f + #f + 0 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (k$199 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 98 + #f + #f + #f + 3 + (90 59 56) + #f + #f + 2 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (lp$11$16$100 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 19 + #f + #f + #f + 3 + (18 19 12) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (a$9$96 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 0 + 2 + #t + #f + #f + #t + #t + #f + #f))) + (k$143 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 7 + #f + #f + #f + 2 + (7 7) + #f + #f + 1 + 1 + #t + #f + #t + #t + #t + #f + #f))) + (n$5$92 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + n$1$91 + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$139 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 11 + #f + #f + #f + 1 + (1) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (j/s$54$124 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 106 + #f + #f + #f + 2 + (75 63) + #f + #f + 0 + 2 + #t + #f + #f + #f + #t + #f + #f))) + (name$47$116 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 3 + (112 71 65) + #f + #f + 0 + 3 + #f + #f + #f + #f + #t + #f + #f))) + (r$231 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 90 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (k$179 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 52 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #t + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (44) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (values + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (52 46) + #f + #f + 1 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (vector + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (52) + #f + #f + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (display + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 13 + (96 63 64 65 66 67 69 71 72 74 77 112 113) + #f + #f + 13 + 0 + #f + #f + #f + #f + #t + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((round__inline__ + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (117) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (current-second + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (87 106) + #f + #f + 2 + 0 + #f + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-lt + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 2 + (98 48) + #f + #f + 2 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (Cyc-fast-sub + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 4 + (85 75 63 7) + #f + #f + 4 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (create-n + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 11 + #f + #f + 2 + (33 -1) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(11 + (k$139 n$1$91) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(9 + (n$5$92 a$6$93) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(8 + (lp$2$7$94) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(1 + (r$141) + ((lp$2$7$94 k$139 n$5$92 a$6$93)) + #f)) + (set! lp$2$7$94 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(7 + (k$143 n$8$95 a$9$96) + ((if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + #t))))) + #f)) + #f)) + #f)) + n$1$91 + '())) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f))) + (run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + -1 + 120 + #f + #f + 2 + (-1 31) + #f + (#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(120 + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(119 + (rounded$121) + ((#((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(113 + (r$189) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(112 + (r$190) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(111 + (r$191) + ((newline + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(110 + (r$192) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(109 + (r$233) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(108 + (r$193) + ((jiffies-per-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(106 + (j/s$54$124) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(104 + (t0$57$125) + ((current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(102 + (j0$60$126) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(99 + (loop$65$129) + ((#((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(54 + (r$197) + ((loop$65$129 + k$188 + 0 + #f)) + #f)) + (set! loop$65$129 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(98 + (k$199 i$66$130 + result$67$131) + ((if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$233)) + #f)))) + #f)))) + #f)) + name$47$116)) + #f)) + "Running ")) + #f)) + (set! rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ + (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$192 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 110 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (x$44$113 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 51 + #f + #f + #f + 1 + (51) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (r$180 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 49 + #f + #f + #f + 1 + (46) + #f + #f + 0 + 1 + #f + #f + #f + #f + #f + #f + #f))) + (l$10$97 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 22 + #f + #f + #f + 1 + (22) + #f + #f + 0 + 1 + #t + #f + #f + #f + #f + #f + #f))) + (k$240 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 122 + #f + #f + #f + 1 + (121) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f))) + (r$204 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 59 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$224 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 60 + #f + #f + #f + 1 + (60) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (r$220 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$216 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 69 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$212 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 73 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (rounded$121 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 119 + #f + #f + #f + 2 + (119 85) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(117 + (k$235 x$51$123) + ((k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))) + #t)) + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (t1$79$133 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 85 + #f + #f + #f + 1 + (85) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (count$48$117 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (98) + #f + #f + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (k$188 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 120 + #f + #f + #f + 1 + (54) + #f + #f + 0 + 1 + #t + #f + #t + #f + #t + #f + #f))) + (loop$65$129 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 99 + #f + #f + #f + 3 + (56 99 54) + #f + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(98 + (k$199 i$66$130 result$67$131) + ((if (Cyc-fast-lt i$66$130 count$48$117) + (thunk$49$118 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(56 + (r$202) + ((loop$65$129 + k$199 + (Cyc-fast-plus i$66$130 1) + r$202)) + #f))) + (ok?$50$119 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(96 + (r$203) + ((if r$203 + (current-jiffy + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(87 + (j1$76$132) + ((current-second + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(85 + (t1$79$133) + ((rounded$121 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(77 + (secs2$88$136) + ((display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(75 + (r$210) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(74 + (r$211) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(73 + (r$212) + ((write #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(72 + (r$213) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(71 + (r$214) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(70 + (r$215) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(69 + (r$216) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(68 + (r$217) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(67 + (r$225) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(66 + (r$218) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(65 + (r$219) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(64 + (r$220) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(63 + (r$221) + ((display + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(62 + (r$222) + ((newline + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(61 + (r$223) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(60 + (r$224) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(59 + (r$204) + ((k$199 result$67$131)) + #f)) + r$224)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + ",")) + #f)) + name$47$116)) + #f)) + ",")) + #f)) + r$225)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47$116)) + #f)) + ") for ")) + #f)) + secs2$88$136)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$79$133 + t0$57$125))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(94 + (r$228) + ((write #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(93 + (r$229) + ((newline + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(92 + (r$230) + ((current-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(91 + (r$232) + ((flush-output-port + #((record-marker) + #((record-marker) + "" + (id args + body + has-cont)) + #(90 + (r$231) + ((k$199 result$67$131)) + #f)) + r$232)) + #f)))) + #f)))) + #f)) + result$67$131)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$67$131))) + #t)) + 2 + 0 + #t + #f + #f + #t + #t + #f + #f))) + (l$17$101 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 18 + #f + #f + #f + 3 + (18 18 18) + #f + #f + 0 + 3 + #t + #f + #f + #t + #t + #f + #f))) + (r$152 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 12 + #f + #f + #f + 0 + () + #f + (set! lp$11$16$100 + #((record-marker) + #((record-marker) + "" + (id args body has-cont)) + #(18 + (k$154 l$17$101 a$18$102) + ((if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + #t))) + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (a$6$93 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 9 + #f + #f + #f + 1 + (1) + #f + '() + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (t0$57$125 + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 104 + #f + #f + #f + 1 + (85) + #f + #f + 0 + 1 + #t + #f + #f + #f + #t + #f + #f))) + (r$228 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 94 + #f + #f + #f + 0 + () + #f + #f + 0 + 0 + #t + #f + #f + #t + #f + #f + #f))) + (r$232 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 91 + #f + #f + #f + 1 + (91) + #f + #f + 0 + 1 + #t + #f + #f + #t + #t + #f + #f))) + (k$168 . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(#f + 25 + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #t + #f + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((string-append + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (121) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (length + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (equal? + . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (25) + #f + #f + 1 + 0 + #t + #f + #f + #f + #f + #f + #f))) + (cddr . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f))) + (null? . + #((record-marker) + #((record-marker) + "" + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont + def-in-loop + ref-in-loop + direct-rec-call + self-rec-call)) + #(? + ? + #f + #f + #f + 1 + (18) + #f + #f + 1 + 0 + #t + #f + #f + #f + #t + #f + #f)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((-1 + . + #((record-marker) + #((record-marker) + "" + (simple + unused-params + assigned-to-var + side-effects)) + #(? ? () #t))))))) + */ +/* +"---------------- after cps optimizations (3):" + */ +/* +((define create-n + (lambda-11-cont + (k$139 n$1$91) + ((lambda-9 + (n$5$92 a$6$93) + ((lambda-8 + (lp$2$7$94) + ((lambda-1 + (r$141) + (lp$2$7$94 k$139 n$5$92 a$6$93)) + (set! lp$2$7$94 + (lambda-7-cont + (k$143 n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + (lp$2$7$94 + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))))) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda-22-cont + (k$150 l$10$97) + ((lambda-20 + (l$14$98 a$15$99) + ((lambda-19 + (lp$11$16$100) + ((lambda-12 + (r$152) + (lp$11$16$100 k$150 l$14$98 a$15$99)) + (set! lp$11$16$100 + (lambda-18-cont + (k$154 l$17$101 a$18$102) + (if (null? l$17$101) + (k$154 a$18$102) + (lp$11$16$100 + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))))) + #f)) + l$10$97 + '()))) + (define main + (lambda-41-cont + (k$161) + (hide (lambda-33 + (r$171) + (create-n + (lambda-31 + (ll$36$108) + (run-r7rs-benchmark + k$161 + "diviter:1000:1000000" + 1000000 + (lambda-27-cont + (k$170) + (iterative-div2 k$170 ll$36$108)) + (lambda-25-cont + (k$168 result$41$110) + (k$168 (equal? (length result$41$110) 500))))) + r$171)) + 1000000 + 1000))) + (define hide + (lambda-53-cont + (k$174 r$42$111 x$43$112) + (call-with-values + k$174 + (lambda-52-cont + (k$179) + (vector + (lambda-49 + (r$180) + ((lambda-48-cont + (k$182) + (if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + (lambda-46 (r$181) (values k$179 r$180 r$181)))) + values + (lambda-51-cont + (k$185 x$44$113) + (k$185 x$44$113)))) + (lambda-44-cont + (k$177 v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) k$177 x$43$112))))) + (define run-r7rs-benchmark + (lambda-120-cont + (k$188 name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda-119 + (rounded$121) + ((lambda-113 + (r$189) + (display + (lambda-112 + (r$190) + (display + (lambda-111 + (r$191) + (newline + (lambda-110 + (r$192) + (current-output-port + (lambda-109 + (r$233) + (flush-output-port + (lambda-108 + (r$193) + (jiffies-per-second + (lambda-106 + (j/s$54$124) + (current-second + (lambda-104 + (t0$57$125) + (current-jiffy + (lambda-102 + (j0$60$126) + ((lambda-99 + (loop$65$129) + ((lambda-54 + (r$197) + (loop$65$129 k$188 0 #f)) + (set! loop$65$129 + (lambda-98-cont + (k$199 i$66$130 + result$67$131) + (if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + (lambda-56 + (r$202) + (loop$65$129 + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202))) + (ok?$50$119 + (lambda-96 + (r$203) + (if r$203 + (current-jiffy + (lambda-87 + (j1$76$132) + (current-second + (lambda-85 + (t1$79$133) + (rounded$121 + (lambda-77 + (secs2$88$136) + (display + (lambda-75 + (r$210) + (write (lambda-74 + (r$211) + (display + (lambda-73 + (r$212) + (write (lambda-72 + (r$213) + (display + (lambda-71 + (r$214) + (display + (lambda-70 + (r$215) + (newline + (lambda-69 + (r$216) + (display + (lambda-68 + (r$217) + (this-scheme-implementation-name + (lambda-67 + (r$225) + (display + (lambda-66 + (r$218) + (display + (lambda-65 + (r$219) + (display + (lambda-64 + (r$220) + (display + (lambda-63 + (r$221) + (display + (lambda-62 + (r$222) + (newline + (lambda-61 + (r$223) + (current-output-port + (lambda-60 + (r$224) + (flush-output-port + (lambda-59 + (r$204) + (k$199 result$67$131)) + r$224)))))) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + ",")) + name$47$116)) + ",")) + r$225)))) + "+!CSVLINE!+")))) + name$47$116)) + ") for ")) + secs2$88$136)) + " seconds (")) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + "Elapsed time: ")) + (Cyc-fast-sub + t1$79$133 + t0$57$125)))))) + (display + (lambda-94 + (r$228) + (write (lambda-93 + (r$229) + (newline + (lambda-92 + (r$230) + (current-output-port + (lambda-91 + (r$232) + (flush-output-port + (lambda-90 + (r$231) + (k$199 result$67$131)) + r$232)))))) + result$67$131)) + "ERROR: returned incorrect result: "))) + result$67$131)))))) + #f)))))))) + r$233)))))) + name$47$116)) + "Running ")) + (set! rounded$121 + (lambda-117-cont + (k$235 x$51$123) + (k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000)))))) + #f))) + (define this-scheme-implementation-name + (lambda-122-cont + (k$240) + (Cyc-version + (lambda-121 + (r$241) + (k$240 (string-append "cyclone-" r$241)))))) + (main %halt)) + */ +/* +"---------------- after wrap-mutables:" + */ +/* +((define create-n + (lambda (k$139 n$1$91) + ((lambda (n$5$92 a$6$93) + ((lambda (lp$2$7$94) + ((lambda (lp$2$7$94) + ((lambda (r$141) + ((cell-get lp$2$7$94) k$139 n$5$92 a$6$93)) + (set-cell! + lp$2$7$94 + (lambda (k$143 n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + (k$143 a$9$96) + ((cell-get lp$2$7$94) + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96))))))) + (cell lp$2$7$94))) + #f)) + n$1$91 + '()))) + (define iterative-div2 + (lambda (k$150 l$10$97) + ((lambda (l$14$98 a$15$99) + ((lambda (lp$11$16$100) + ((lambda (lp$11$16$100) + ((lambda (r$152) + ((cell-get lp$11$16$100) k$150 l$14$98 a$15$99)) + (set-cell! + lp$11$16$100 + (lambda (k$154 l$17$101 a$18$102) + (if (null? l$17$101) + (k$154 a$18$102) + ((cell-get lp$11$16$100) + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102))))))) + (cell lp$11$16$100))) + #f)) + l$10$97 + '()))) + (define main + (lambda (k$161) + (hide (lambda (r$171) + (create-n + (lambda (ll$36$108) + (run-r7rs-benchmark + k$161 + "diviter:1000:1000000" + 1000000 + (lambda (k$170) (iterative-div2 k$170 ll$36$108)) + (lambda (k$168 result$41$110) + (k$168 (equal? (length result$41$110) 500))))) + r$171)) + 1000000 + 1000))) + (define hide + (lambda (k$174 r$42$111 x$43$112) + (call-with-values + k$174 + (lambda (k$179) + (vector + (lambda (r$180) + ((lambda (k$182) + (if (Cyc-fast-lt r$42$111 100) + (k$182 0) + (k$182 1))) + (lambda (r$181) (values k$179 r$180 r$181)))) + values + (lambda (k$185 x$44$113) (k$185 x$44$113)))) + (lambda (k$177 v$45$114 i$46$115) + ((vector-ref v$45$114 i$46$115) k$177 x$43$112))))) + (define run-r7rs-benchmark + (lambda (k$188 + name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((lambda (rounded$121) + ((lambda (rounded$121) + ((lambda (r$189) + (display + (lambda (r$190) + (display + (lambda (r$191) + (newline + (lambda (r$192) + (current-output-port + (lambda (r$233) + (flush-output-port + (lambda (r$193) + (jiffies-per-second + (lambda (j/s$54$124) + (current-second + (lambda (t0$57$125) + (current-jiffy + (lambda (j0$60$126) + ((lambda (loop$65$129) + ((lambda (loop$65$129) + ((lambda (r$197) + ((cell-get loop$65$129) + k$188 + 0 + #f)) + (set-cell! + loop$65$129 + (lambda (k$199 + i$66$130 + result$67$131) + (if (Cyc-fast-lt + i$66$130 + count$48$117) + (thunk$49$118 + (lambda (r$202) + ((cell-get + loop$65$129) + k$199 + (Cyc-fast-plus + i$66$130 + 1) + r$202))) + (ok?$50$119 + (lambda (r$203) + (if r$203 + (current-jiffy + (lambda (j1$76$132) + (current-second + (lambda (t1$79$133) + ((cell-get + rounded$121) + (lambda (secs2$88$136) + (display + (lambda (r$210) + (write (lambda (r$211) + (display + (lambda (r$212) + (write (lambda (r$213) + (display + (lambda (r$214) + (display + (lambda (r$215) + (newline + (lambda (r$216) + (display + (lambda (r$217) + (this-scheme-implementation-name + (lambda (r$225) + (display + (lambda (r$218) + (display + (lambda (r$219) + (display + (lambda (r$220) + (display + (lambda (r$221) + (display + (lambda (r$222) + (newline + (lambda (r$223) + (current-output-port + (lambda (r$224) + (flush-output-port + (lambda (r$204) + (k$199 result$67$131)) + r$224)))))) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + ",")) + name$47$116)) + ",")) + r$225)))) + "+!CSVLINE!+")))) + name$47$116)) + ") for ")) + secs2$88$136)) + " seconds (")) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$76$132 + j0$60$126) + j/s$54$124)))) + "Elapsed time: ")) + (Cyc-fast-sub + t1$79$133 + t0$57$125)))))) + (display + (lambda (r$228) + (write (lambda (r$229) + (newline + (lambda (r$230) + (current-output-port + (lambda (r$232) + (flush-output-port + (lambda (r$231) + (k$199 result$67$131)) + r$232)))))) + result$67$131)) + "ERROR: returned incorrect result: "))) + result$67$131)))))) + (cell loop$65$129))) + #f)))))))) + r$233)))))) + name$47$116)) + "Running ")) + (set-cell! + rounded$121 + (lambda (k$235 x$51$123) + (k$235 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000)))))) + (cell rounded$121))) + #f))) + (define this-scheme-implementation-name + (lambda (k$240) + (Cyc-version + (lambda (r$241) + (k$240 (string-append "cyclone-" r$241)))))) + (main %halt)) + */ +/* +"---------------- after closure-convert:" + */ +/* +((define create-n + (lambda (k$139 n$1$91) + ((%closure + (lambda (self$243 n$5$92 a$6$93) + ((%closure + (lambda (self$244 lp$2$7$94) + ((%closure + (lambda (self$245 lp$2$7$94) + ((%closure + (lambda (self$247 r$141) + ((%closure-ref + (cell-get (%closure-ref self$247 3)) + 0) + (cell-get (%closure-ref self$247 3)) + (%closure-ref self$247 2) + (%closure-ref self$247 4) + (%closure-ref self$247 1))) + (%closure-ref self$245 1) + (%closure-ref self$245 2) + lp$2$7$94 + (%closure-ref self$245 3)) + (set-cell! + lp$2$7$94 + (%closure + (lambda (self$246 k$143 n$8$95 a$9$96) + (if (Cyc-fast-eq n$8$95 0) + ((%closure-ref k$143 0) k$143 a$9$96) + ((%closure-ref + (cell-get (%closure-ref self$246 1)) + 0) + (cell-get (%closure-ref self$246 1)) + k$143 + (Cyc-fast-sub n$8$95 1) + (cons '() a$9$96)))) + lp$2$7$94)))) + (%closure-ref self$244 1) + (%closure-ref self$244 2) + (%closure-ref self$244 3)) + (cell lp$2$7$94))) + a$6$93 + (%closure-ref self$243 1) + n$5$92) + #f)) + k$139) + n$1$91 + '()))) + (define iterative-div2 + (lambda (k$150 l$10$97) + ((%closure + (lambda (self$248 l$14$98 a$15$99) + ((%closure + (lambda (self$249 lp$11$16$100) + ((%closure + (lambda (self$250 lp$11$16$100) + ((%closure + (lambda (self$252 r$152) + ((%closure-ref + (cell-get (%closure-ref self$252 4)) + 0) + (cell-get (%closure-ref self$252 4)) + (%closure-ref self$252 2) + (%closure-ref self$252 3) + (%closure-ref self$252 1))) + (%closure-ref self$250 1) + (%closure-ref self$250 2) + (%closure-ref self$250 3) + lp$11$16$100) + (set-cell! + lp$11$16$100 + (%closure + (lambda (self$251 k$154 l$17$101 a$18$102) + (if (null? l$17$101) + ((%closure-ref k$154 0) k$154 a$18$102) + ((%closure-ref + (cell-get (%closure-ref self$251 1)) + 0) + (cell-get (%closure-ref self$251 1)) + k$154 + (cddr l$17$101) + (cons (car l$17$101) a$18$102)))) + lp$11$16$100)))) + (%closure-ref self$249 1) + (%closure-ref self$249 2) + (%closure-ref self$249 3)) + (cell lp$11$16$100))) + a$15$99 + (%closure-ref self$248 1) + l$14$98) + #f)) + k$150) + l$10$97 + '()))) + (define main + (lambda (k$161) + ((%closure-ref hide 0) + hide + (%closure + (lambda (self$253 r$171) + ((%closure-ref create-n 0) + create-n + (%closure + (lambda (self$254 ll$36$108) + ((%closure-ref run-r7rs-benchmark 0) + run-r7rs-benchmark + (%closure-ref self$254 1) + "diviter:1000:1000000" + 1000000 + (%closure + (lambda (self$255 k$170) + ((%closure-ref iterative-div2 0) + iterative-div2 + k$170 + (%closure-ref self$255 1))) + ll$36$108) + (%closure + (lambda (self$256 k$168 result$41$110) + ((%closure-ref k$168 0) + k$168 + (equal? (length result$41$110) 500)))))) + (%closure-ref self$253 1)) + r$171)) + k$161) + 1000000 + 1000))) + (define hide + (lambda (k$174 r$42$111 x$43$112) + ((%closure-ref call-with-values 0) + call-with-values + k$174 + (%closure + (lambda (self$257 k$179) + ((%closure-ref vector 0) + vector + (%closure + (lambda (self$258 r$180) + ((%closure + (lambda (self$260 k$182) + (if (Cyc-fast-lt (%closure-ref self$260 1) 100) + ((%closure-ref k$182 0) k$182 0) + ((%closure-ref k$182 0) k$182 1))) + (%closure-ref self$258 2)) + (%closure + (lambda (self$259 r$181) + ((%closure-ref values 0) + values + (%closure-ref self$259 1) + (%closure-ref self$259 2) + r$181)) + (%closure-ref self$258 1) + r$180))) + k$179 + (%closure-ref self$257 1)) + values + (%closure + (lambda (self$261 k$185 x$44$113) + ((%closure-ref k$185 0) k$185 x$44$113))))) + r$42$111) + (%closure + (lambda (self$262 k$177 v$45$114 i$46$115) + ((%closure-ref (vector-ref v$45$114 i$46$115) 0) + (vector-ref v$45$114 i$46$115) + k$177 + (%closure-ref self$262 1))) + x$43$112)))) + (define run-r7rs-benchmark + (lambda (k$188 + name$47$116 + count$48$117 + thunk$49$118 + ok?$50$119) + ((%closure + (lambda (self$263 rounded$121) + ((%closure + (lambda (self$264 rounded$121) + ((%closure + (lambda (self$266 r$189) + ((%closure-ref display 0) + display + (%closure + (lambda (self$267 r$190) + ((%closure-ref display 0) + display + (%closure + (lambda (self$268 r$191) + ((%closure-ref newline 0) + newline + (%closure + (lambda (self$269 r$192) + ((%closure-ref current-output-port 0) + current-output-port + (%closure + (lambda (self$270 r$233) + ((%closure-ref flush-output-port 0) + flush-output-port + (%closure + (lambda (self$271 r$193) + ((%closure-ref + jiffies-per-second + 0) + jiffies-per-second + (%closure + (lambda (self$272 j/s$54$124) + ((%closure-ref + current-second + 0) + current-second + (%closure + (lambda (self$273 + t0$57$125) + ((%closure-ref + current-jiffy + 0) + current-jiffy + (%closure + (lambda (self$274 + j0$60$126) + ((%closure + (lambda (self$275 + loop$65$129) + ((%closure + (lambda (self$276 + loop$65$129) + ((%closure + (lambda (self$305 + r$197) + ((%closure-ref + (cell-get + (%closure-ref + self$305 + 2)) + 0) + (cell-get + (%closure-ref + self$305 + 2)) + (%closure-ref + self$305 + 1) + 0 + #f)) + (%closure-ref + self$276 + 4) + loop$65$129) + (set-cell! + loop$65$129 + (%closure + (lambda (self$277 + k$199 + i$66$130 + result$67$131) + (if (Cyc-fast-lt + i$66$130 + (%closure-ref + self$277 + 1)) + ((%closure-ref + (%closure-ref + self$277 + 9) + 0) + (%closure-ref + self$277 + 9) + (%closure + (lambda (self$278 + r$202) + ((%closure-ref + (cell-get + (%closure-ref + self$278 + 3)) + 0) + (cell-get + (%closure-ref + self$278 + 3)) + (%closure-ref + self$278 + 2) + (Cyc-fast-plus + (%closure-ref + self$278 + 1) + 1) + r$202)) + i$66$130 + k$199 + (%closure-ref + self$277 + 4))) + ((%closure-ref + (%closure-ref + self$277 + 6) + 0) + (%closure-ref + self$277 + 6) + (%closure + (lambda (self$279 + r$203) + (if r$203 + ((%closure-ref + current-jiffy + 0) + current-jiffy + (%closure + (lambda (self$280 + j1$76$132) + ((%closure-ref + current-second + 0) + current-second + (%closure + (lambda (self$281 + t1$79$133) + ((%closure-ref + (cell-get + (%closure-ref + self$281 + 7)) + 0) + (cell-get + (%closure-ref + self$281 + 7)) + (%closure + (lambda (self$282 + secs2$88$136) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$283 + r$210) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$284 + r$211) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$285 + r$212) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$286 + r$213) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$287 + r$214) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$288 + r$215) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$289 + r$216) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$290 + r$217) + ((%closure-ref + this-scheme-implementation-name + 0) + this-scheme-implementation-name + (%closure + (lambda (self$291 + r$225) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$292 + r$218) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$293 + r$219) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$294 + r$220) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$295 + r$221) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$296 + r$222) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$297 + r$223) + ((%closure-ref + current-output-port + 0) + current-output-port + (%closure + (lambda (self$298 + r$224) + ((%closure-ref + flush-output-port + 0) + flush-output-port + (%closure + (lambda (self$299 + r$204) + ((%closure-ref + (%closure-ref + self$299 + 1) + 0) + (%closure-ref + self$299 + 1) + (%closure-ref + self$299 + 2))) + (%closure-ref + self$298 + 1) + (%closure-ref + self$298 + 2)) + r$224)) + (%closure-ref + self$297 + 1) + (%closure-ref + self$297 + 2)))) + (%closure-ref + self$296 + 1) + (%closure-ref + self$296 + 2)))) + (%closure-ref + self$295 + 4) + (%closure-ref + self$295 + 5)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + (%closure-ref + self$295 + 3) + (%closure-ref + self$295 + 2)) + (%closure-ref + self$295 + 1))))) + (%closure-ref + self$294 + 1) + (%closure-ref + self$294 + 2) + (%closure-ref + self$294 + 3) + (%closure-ref + self$294 + 4) + (%closure-ref + self$294 + 5)) + ",")) + (%closure-ref + self$293 + 1) + (%closure-ref + self$293 + 2) + (%closure-ref + self$293 + 3) + (%closure-ref + self$293 + 4) + (%closure-ref + self$293 + 6)) + (%closure-ref + self$293 + 5))) + (%closure-ref + self$292 + 1) + (%closure-ref + self$292 + 2) + (%closure-ref + self$292 + 3) + (%closure-ref + self$292 + 4) + (%closure-ref + self$292 + 5) + (%closure-ref + self$292 + 6)) + ",")) + (%closure-ref + self$291 + 1) + (%closure-ref + self$291 + 2) + (%closure-ref + self$291 + 3) + (%closure-ref + self$291 + 4) + (%closure-ref + self$291 + 5) + (%closure-ref + self$291 + 6)) + r$225)) + (%closure-ref + self$290 + 1) + (%closure-ref + self$290 + 2) + (%closure-ref + self$290 + 3) + (%closure-ref + self$290 + 4) + (%closure-ref + self$290 + 5) + (%closure-ref + self$290 + 6)))) + (%closure-ref + self$289 + 1) + (%closure-ref + self$289 + 2) + (%closure-ref + self$289 + 3) + (%closure-ref + self$289 + 4) + (%closure-ref + self$289 + 5) + (%closure-ref + self$289 + 6)) + "+!CSVLINE!+")) + (%closure-ref + self$288 + 1) + (%closure-ref + self$288 + 2) + (%closure-ref + self$288 + 3) + (%closure-ref + self$288 + 4) + (%closure-ref + self$288 + 5) + (%closure-ref + self$288 + 6)))) + (%closure-ref + self$287 + 1) + (%closure-ref + self$287 + 2) + (%closure-ref + self$287 + 3) + (%closure-ref + self$287 + 4) + (%closure-ref + self$287 + 5) + (%closure-ref + self$287 + 6)) + (%closure-ref + self$287 + 5))) + (%closure-ref + self$286 + 1) + (%closure-ref + self$286 + 2) + (%closure-ref + self$286 + 3) + (%closure-ref + self$286 + 4) + (%closure-ref + self$286 + 5) + (%closure-ref + self$286 + 6)) + ") for ")) + (%closure-ref + self$285 + 1) + (%closure-ref + self$285 + 2) + (%closure-ref + self$285 + 3) + (%closure-ref + self$285 + 4) + (%closure-ref + self$285 + 5) + (%closure-ref + self$285 + 6)) + (%closure-ref + self$285 + 7))) + (%closure-ref + self$284 + 1) + (%closure-ref + self$284 + 2) + (%closure-ref + self$284 + 3) + (%closure-ref + self$284 + 4) + (%closure-ref + self$284 + 5) + (%closure-ref + self$284 + 6) + (%closure-ref + self$284 + 7)) + " seconds (")) + (%closure-ref + self$283 + 1) + (%closure-ref + self$283 + 2) + (%closure-ref + self$283 + 3) + (%closure-ref + self$283 + 4) + (%closure-ref + self$283 + 5) + (%closure-ref + self$283 + 6) + (%closure-ref + self$283 + 7)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + (%closure-ref + self$283 + 3) + (%closure-ref + self$283 + 2)) + (%closure-ref + self$283 + 1))))) + (%closure-ref + self$282 + 1) + (%closure-ref + self$282 + 2) + (%closure-ref + self$282 + 3) + (%closure-ref + self$282 + 4) + (%closure-ref + self$282 + 5) + (%closure-ref + self$282 + 6) + secs2$88$136) + "Elapsed time: ")) + (%closure-ref + self$281 + 1) + (%closure-ref + self$281 + 2) + (%closure-ref + self$281 + 3) + (%closure-ref + self$281 + 4) + (%closure-ref + self$281 + 5) + (%closure-ref + self$281 + 6)) + (Cyc-fast-sub + t1$79$133 + (%closure-ref + self$281 + 8)))) + (%closure-ref + self$280 + 1) + (%closure-ref + self$280 + 2) + j1$76$132 + (%closure-ref + self$280 + 3) + (%closure-ref + self$280 + 4) + (%closure-ref + self$280 + 5) + (%closure-ref + self$280 + 6) + (%closure-ref + self$280 + 7)))) + (%closure-ref + self$279 + 1) + (%closure-ref + self$279 + 2) + (%closure-ref + self$279 + 3) + (%closure-ref + self$279 + 4) + (%closure-ref + self$279 + 5) + (%closure-ref + self$279 + 6) + (%closure-ref + self$279 + 7))) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$300 + r$228) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$301 + r$229) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$302 + r$230) + ((%closure-ref + current-output-port + 0) + current-output-port + (%closure + (lambda (self$303 + r$232) + ((%closure-ref + flush-output-port + 0) + flush-output-port + (%closure + (lambda (self$304 + r$231) + ((%closure-ref + (%closure-ref + self$304 + 1) + 0) + (%closure-ref + self$304 + 1) + (%closure-ref + self$304 + 2))) + (%closure-ref + self$303 + 1) + (%closure-ref + self$303 + 2)) + r$232)) + (%closure-ref + self$302 + 1) + (%closure-ref + self$302 + 2)))) + (%closure-ref + self$301 + 1) + (%closure-ref + self$301 + 2)))) + (%closure-ref + self$300 + 1) + (%closure-ref + self$300 + 2)) + (%closure-ref + self$300 + 2))) + (%closure-ref + self$279 + 3) + (%closure-ref + self$279 + 5)) + "ERROR: returned incorrect result: "))) + (%closure-ref + self$277 + 2) + (%closure-ref + self$277 + 3) + k$199 + (%closure-ref + self$277 + 5) + result$67$131 + (%closure-ref + self$277 + 7) + (%closure-ref + self$277 + 8)) + result$67$131))) + (%closure-ref + self$276 + 1) + (%closure-ref + self$276 + 2) + (%closure-ref + self$276 + 3) + loop$65$129 + (%closure-ref + self$276 + 5) + (%closure-ref + self$276 + 6) + (%closure-ref + self$276 + 7) + (%closure-ref + self$276 + 8) + (%closure-ref + self$276 + 9))))) + (%closure-ref + self$275 + 1) + (%closure-ref + self$275 + 2) + (%closure-ref + self$275 + 3) + (%closure-ref + self$275 + 4) + (%closure-ref + self$275 + 5) + (%closure-ref + self$275 + 6) + (%closure-ref + self$275 + 7) + (%closure-ref + self$275 + 8) + (%closure-ref + self$275 + 9)) + (cell loop$65$129))) + (%closure-ref + self$274 + 1) + (%closure-ref + self$274 + 2) + j0$60$126 + (%closure-ref + self$274 + 3) + (%closure-ref + self$274 + 4) + (%closure-ref + self$274 + 5) + (%closure-ref + self$274 + 6) + (%closure-ref + self$274 + 7) + (%closure-ref + self$274 + 8)) + #f)) + (%closure-ref + self$273 + 1) + (%closure-ref + self$273 + 2) + (%closure-ref + self$273 + 3) + (%closure-ref + self$273 + 4) + (%closure-ref + self$273 + 5) + (%closure-ref + self$273 + 6) + t0$57$125 + (%closure-ref + self$273 + 7)))) + (%closure-ref self$272 1) + j/s$54$124 + (%closure-ref self$272 2) + (%closure-ref self$272 3) + (%closure-ref self$272 4) + (%closure-ref self$272 5) + (%closure-ref + self$272 + 6)))) + (%closure-ref self$271 1) + (%closure-ref self$271 2) + (%closure-ref self$271 3) + (%closure-ref self$271 4) + (%closure-ref self$271 5) + (%closure-ref self$271 6)))) + (%closure-ref self$270 1) + (%closure-ref self$270 2) + (%closure-ref self$270 3) + (%closure-ref self$270 4) + (%closure-ref self$270 5) + (%closure-ref self$270 6)) + r$233)) + (%closure-ref self$269 1) + (%closure-ref self$269 2) + (%closure-ref self$269 3) + (%closure-ref self$269 4) + (%closure-ref self$269 5) + (%closure-ref self$269 6)))) + (%closure-ref self$268 1) + (%closure-ref self$268 2) + (%closure-ref self$268 3) + (%closure-ref self$268 4) + (%closure-ref self$268 5) + (%closure-ref self$268 6)))) + (%closure-ref self$267 1) + (%closure-ref self$267 2) + (%closure-ref self$267 3) + (%closure-ref self$267 4) + (%closure-ref self$267 5) + (%closure-ref self$267 6)) + (%closure-ref self$267 3))) + (%closure-ref self$266 1) + (%closure-ref self$266 2) + (%closure-ref self$266 3) + (%closure-ref self$266 4) + (%closure-ref self$266 5) + (%closure-ref self$266 6)) + "Running ")) + (%closure-ref self$264 1) + (%closure-ref self$264 2) + (%closure-ref self$264 3) + (%closure-ref self$264 4) + rounded$121 + (%closure-ref self$264 5)) + (set-cell! + rounded$121 + (%closure + (lambda (self$265 k$235 x$51$123) + ((%closure-ref k$235 0) + k$235 + (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$51$123)) + 1000))))))) + (%closure-ref self$263 1) + (%closure-ref self$263 2) + (%closure-ref self$263 3) + (%closure-ref self$263 4) + (%closure-ref self$263 5)) + (cell rounded$121))) + count$48$117 + k$188 + name$47$116 + ok?$50$119 + thunk$49$118) + #f))) + (define this-scheme-implementation-name + (lambda (k$240) + ((%closure-ref Cyc-version 0) + Cyc-version + (%closure + (lambda (self$306 r$241) + ((%closure-ref (%closure-ref self$306 1) 0) + (%closure-ref self$306 1) + (string-append "cyclone-" r$241))) + k$240)))) + ((%closure-ref main 0) main %halt)) + */ +/* +"---------------- C headers: " + */ +/* +() + */ +/* +"---------------- module globals: " + */ +/* +(this-scheme-implementation-name + run-r7rs-benchmark + hide + main + iterative-div2 + create-n) + */ +/* +"---------------- 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 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); \ + }} + +#include "cyclone/types.h" +object __glo_this_91scheme_91implementation_91name = NULL; +object __glo_run_91r7rs_91benchmark = NULL; +object __glo_hide = NULL; +object __glo_main = NULL; +object __glo_iterative_91div2 = NULL; +object __glo_create_91n = 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_is_91a_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_91ref_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_Cyc_91map_91loop_911_scheme_base; +extern object __glo_Cyc_91for_91each_91loop_911_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_91object_127_scheme_base; +extern object __glo_error_91object_91message_scheme_base; +extern object __glo_error_91object_91irritants_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_peek_91char_scheme_base; +extern object __glo_read_91char_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_peek_91u8_scheme_base; +extern object __glo_read_91u8_scheme_base; +extern object __glo_write_91u8_scheme_base; +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_complex_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_Cyc_91opaque_91eq_127_191_191inline_191_191_scheme_read; +extern object __glo_Cyc_91opaque_91unsafe_91eq_127_191_191inline_191_191_scheme_read; +extern object __glo_Cyc_91opaque_91unsafe_91string_127_191_191inline_191_191_scheme_read; +#include "cyclone/runtime.h" +#include "cyclone/runtime-main.h" +static void __lambda_69(void *data, int argc, closure _,object k_73240) ; +static void __lambda_68(void *data, int argc, object self_73306, object r_73241) ; +static void __lambda_67(void *data, int argc, closure _,object k_73188, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) ; +static void __lambda_66(void *data, int argc, object self_73263, object rounded_73121) ; +static void __lambda_65(void *data, int argc, object self_73264, object rounded_73121) ; +static void __lambda_64(void *data, int argc, object self_73265, object k_73235, object x_7351_73123) ; +static void __lambda_63(void *data, int argc, object self_73266, object r_73189) ; +static void __lambda_62(void *data, int argc, object self_73267, object r_73190) ; +static void __lambda_61(void *data, int argc, object self_73268, object r_73191) ; +static void __lambda_60(void *data, int argc, object self_73269, object r_73192) ; +static void __lambda_59(void *data, int argc, object self_73270, object r_73233) ; +static void __lambda_58(void *data, int argc, object self_73271, object r_73193) ; +static void __lambda_57(void *data, int argc, object self_73272, object j_95s_7354_73124) ; +static void __lambda_56(void *data, int argc, object self_73273, object t0_7357_73125) ; +static void __lambda_55(void *data, int argc, object self_73274, object j0_7360_73126) ; +static void __lambda_54(void *data, int argc, object self_73275, object loop_7365_73129) ; +static void __lambda_53(void *data, int argc, object self_73276, object loop_7365_73129) ; +static void __lambda_52(void *data, int argc, object self_73277, object k_73199, object i_7366_73130, object result_7367_73131) ; +static void __lambda_51(void *data, int argc, object self_73279, object r_73203) ; +static void __lambda_50(void *data, int argc, object self_73300, object r_73228) ; +static void __lambda_49(void *data, int argc, object self_73301, object r_73229) ; +static void __lambda_48(void *data, int argc, object self_73302, object r_73230) ; +static void __lambda_47(void *data, int argc, object self_73303, object r_73232) ; +static void __lambda_46(void *data, int argc, object self_73304, object r_73231) ; +static void __lambda_45(void *data, int argc, object self_73280, object j1_7376_73132) ; +static void __lambda_44(void *data, int argc, object self_73281, object t1_7379_73133) ; +static void __lambda_43(void *data, int argc, object self_73282, object secs2_7388_73136) ; +static void __lambda_42(void *data, int argc, object self_73283, object r_73210) ; +static void __lambda_41(void *data, int argc, object self_73284, object r_73211) ; +static void __lambda_40(void *data, int argc, object self_73285, object r_73212) ; +static void __lambda_39(void *data, int argc, object self_73286, object r_73213) ; +static void __lambda_38(void *data, int argc, object self_73287, object r_73214) ; +static void __lambda_37(void *data, int argc, object self_73288, object r_73215) ; +static void __lambda_36(void *data, int argc, object self_73289, object r_73216) ; +static void __lambda_35(void *data, int argc, object self_73290, object r_73217) ; +static void __lambda_34(void *data, int argc, object self_73291, object r_73225) ; +static void __lambda_33(void *data, int argc, object self_73292, object r_73218) ; +static void __lambda_32(void *data, int argc, object self_73293, object r_73219) ; +static void __lambda_31(void *data, int argc, object self_73294, object r_73220) ; +static void __lambda_30(void *data, int argc, object self_73295, object r_73221) ; +static void __lambda_29(void *data, int argc, object self_73296, object r_73222) ; +static void __lambda_28(void *data, int argc, object self_73297, object r_73223) ; +static void __lambda_27(void *data, int argc, object self_73298, object r_73224) ; +static void __lambda_26(void *data, int argc, object self_73299, object r_73204) ; +static void __lambda_25(void *data, int argc, object self_73278, object r_73202) ; +static void __lambda_24(void *data, int argc, object self_73305, object r_73197) ; +static void __lambda_23(void *data, int argc, closure _,object k_73174, object r_7342_73111, object x_7343_73112) ; +static void __lambda_22(void *data, int argc, object self_73262, object k_73177, object v_7345_73114, object i_7346_73115) ; +static void __lambda_21(void *data, int argc, object self_73257, object k_73179) ; +static void __lambda_20(void *data, int argc, object self_73261, object k_73185, object x_7344_73113) ; +static void __lambda_19(void *data, int argc, object self_73258, object r_73180) ; +static void __lambda_18(void *data, int argc, object self_73259, object r_73181) ; +static void __lambda_17(void *data, int argc, object self_73260, object k_73182) ; +static void __lambda_16(void *data, int argc, closure _,object k_73161) ; +static void __lambda_15(void *data, int argc, object self_73253, object r_73171) ; +static void __lambda_14(void *data, int argc, object self_73254, object ll_7336_73108) ; +static void __lambda_13(void *data, int argc, object self_73256, object k_73168, object result_7341_73110) ; +static void __lambda_12(void *data, int argc, object self_73255, object k_73170) ; +static void __lambda_11(void *data, int argc, closure _,object k_73150, object l_7310_7397) ; +static void __lambda_10(void *data, int argc, object self_73248, object l_7314_7398, object a_7315_7399) ; +static void __lambda_9(void *data, int argc, object self_73249, object lp_7311_7316_73100) ; +static void __lambda_8(void *data, int argc, object self_73250, object lp_7311_7316_73100) ; +static void __lambda_7(void *data, int argc, object self_73251, object k_73154, object l_7317_73101, object a_7318_73102) ; +static void __lambda_6(void *data, int argc, object self_73252, object r_73152) ; +static void __lambda_5(void *data, int argc, closure _,object k_73139, object n_731_7391) ; +static void __lambda_4(void *data, int argc, object self_73243, object n_735_7392, object a_736_7393) ; +static void __lambda_3(void *data, int argc, object self_73244, object lp_732_737_7394) ; +static void __lambda_2(void *data, int argc, object self_73245, object lp_732_737_7394) ; +static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395, object a_739_7396) ; +static void __lambda_0(void *data, int argc, object self_73247, object r_73141) ; + +static void __lambda_69(void *data, int argc, closure _,object k_73240) { + Cyc_st_add(data, "diviter.scm:this-scheme-implementation-name"); + +closureN_type c_73609; +c_73609.hdr.mark = gc_color_red; + c_73609.hdr.grayed = 0; +c_73609.tag = closureN_tag; + c_73609.fn = (function_type)__lambda_68; +c_73609.num_args = 1; +c_73609.num_elements = 1; +c_73609.elements = (object *)alloca(sizeof(object) * 1); +c_73609.elements[0] = k_73240; + +return_closcall1(data, __glo_Cyc_91version_scheme_base, &c_73609);; +} + +static void __lambda_68(void *data, int argc, object self_73306, object r_73241) { + +make_utf8_string_with_len(c_73615, "cyclone-", 8, 8); + +object c_73614 = Cyc_string_append(data, ((closureN)self_73306)->elements[0],2,&c_73615, r_73241); +return_closcall1(data, ((closureN)self_73306)->elements[0], c_73614);; +} + +static void __lambda_67(void *data, int argc, closure _,object k_73188, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) { + Cyc_st_add(data, "diviter.scm:run-r7rs-benchmark"); + +closureN_type c_73423; +c_73423.hdr.mark = gc_color_red; + c_73423.hdr.grayed = 0; +c_73423.tag = closureN_tag; + c_73423.fn = (function_type)__lambda_66; +c_73423.num_args = 1; +c_73423.num_elements = 5; +c_73423.elements = (object *)alloca(sizeof(object) * 5); +c_73423.elements[0] = count_7348_73117; +c_73423.elements[1] = k_73188; +c_73423.elements[2] = name_7347_73116; +c_73423.elements[3] = ok_127_7350_73119; +c_73423.elements[4] = thunk_7349_73118; + +return_closcall1(data,(closure)&c_73423, boolean_f);; +} + +static void __lambda_66(void *data, int argc, object self_73263, object rounded_73121) { + +closureN_type c_73425; +c_73425.hdr.mark = gc_color_red; + c_73425.hdr.grayed = 0; +c_73425.tag = closureN_tag; + c_73425.fn = (function_type)__lambda_65; +c_73425.num_args = 1; +c_73425.num_elements = 5; +c_73425.elements = (object *)alloca(sizeof(object) * 5); +c_73425.elements[0] = ((closureN)self_73263)->elements[0]; +c_73425.elements[1] = ((closureN)self_73263)->elements[1]; +c_73425.elements[2] = ((closureN)self_73263)->elements[2]; +c_73425.elements[3] = ((closureN)self_73263)->elements[3]; +c_73425.elements[4] = ((closureN)self_73263)->elements[4]; + + +make_cell(c_73606,rounded_73121); +return_closcall1(data,(closure)&c_73425, &c_73606);; +} + +static void __lambda_65(void *data, int argc, object self_73264, object rounded_73121) { + +closureN_type c_73427; +c_73427.hdr.mark = gc_color_red; + c_73427.hdr.grayed = 0; +c_73427.tag = closureN_tag; + c_73427.fn = (function_type)__lambda_63; +c_73427.num_args = 1; +c_73427.num_elements = 6; +c_73427.elements = (object *)alloca(sizeof(object) * 6); +c_73427.elements[0] = ((closureN)self_73264)->elements[0]; +c_73427.elements[1] = ((closureN)self_73264)->elements[1]; +c_73427.elements[2] = ((closureN)self_73264)->elements[2]; +c_73427.elements[3] = ((closureN)self_73264)->elements[3]; +c_73427.elements[4] = rounded_73121; +c_73427.elements[5] = ((closureN)self_73264)->elements[4]; + + +mclosure0(c_73590, (function_type)__lambda_64);c_73590.num_args = 1; +return_closcall1(data,(closure)&c_73427, Cyc_set_cell(data, rounded_73121, &c_73590));; +} + +static void __lambda_64(void *data, int argc, object self_73265, object k_73235, object x_7351_73123) { + +complex_num_type local_73602; object c_73603 = Cyc_fast_mul(data,&local_73602,obj_int2obj(1000), x_7351_73123); + +complex_num_type local_73598; object c_73599 = ((inline_function_type) + ((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_73598,c_73603); + +complex_num_type local_73594; object c_73595 = Cyc_fast_div(data,&local_73594,c_73599, obj_int2obj(1000)); +return_closcall1(data, k_73235, c_73595);; +} + +static void __lambda_63(void *data, int argc, object self_73266, object r_73189) { + +closureN_type c_73429; +c_73429.hdr.mark = gc_color_red; + c_73429.hdr.grayed = 0; +c_73429.tag = closureN_tag; + c_73429.fn = (function_type)__lambda_62; +c_73429.num_args = 1; +c_73429.num_elements = 6; +c_73429.elements = (object *)alloca(sizeof(object) * 6); +c_73429.elements[0] = ((closureN)self_73266)->elements[0]; +c_73429.elements[1] = ((closureN)self_73266)->elements[1]; +c_73429.elements[2] = ((closureN)self_73266)->elements[2]; +c_73429.elements[3] = ((closureN)self_73266)->elements[3]; +c_73429.elements[4] = ((closureN)self_73266)->elements[4]; +c_73429.elements[5] = ((closureN)self_73266)->elements[5]; + + +make_utf8_string_with_len(c_73587, "Running ", 8, 8); +return_closcall2(data, __glo_display_scheme_write, &c_73429, &c_73587);; +} + +static void __lambda_62(void *data, int argc, object self_73267, object r_73190) { + +closureN_type c_73431; +c_73431.hdr.mark = gc_color_red; + c_73431.hdr.grayed = 0; +c_73431.tag = closureN_tag; + c_73431.fn = (function_type)__lambda_61; +c_73431.num_args = 1; +c_73431.num_elements = 6; +c_73431.elements = (object *)alloca(sizeof(object) * 6); +c_73431.elements[0] = ((closureN)self_73267)->elements[0]; +c_73431.elements[1] = ((closureN)self_73267)->elements[1]; +c_73431.elements[2] = ((closureN)self_73267)->elements[2]; +c_73431.elements[3] = ((closureN)self_73267)->elements[3]; +c_73431.elements[4] = ((closureN)self_73267)->elements[4]; +c_73431.elements[5] = ((closureN)self_73267)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73431, ((closureN)self_73267)->elements[2]);; +} + +static void __lambda_61(void *data, int argc, object self_73268, object r_73191) { + +closureN_type c_73433; +c_73433.hdr.mark = gc_color_red; + c_73433.hdr.grayed = 0; +c_73433.tag = closureN_tag; + c_73433.fn = (function_type)__lambda_60; +c_73433.num_args = 1; +c_73433.num_elements = 6; +c_73433.elements = (object *)alloca(sizeof(object) * 6); +c_73433.elements[0] = ((closureN)self_73268)->elements[0]; +c_73433.elements[1] = ((closureN)self_73268)->elements[1]; +c_73433.elements[2] = ((closureN)self_73268)->elements[2]; +c_73433.elements[3] = ((closureN)self_73268)->elements[3]; +c_73433.elements[4] = ((closureN)self_73268)->elements[4]; +c_73433.elements[5] = ((closureN)self_73268)->elements[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73433);; +} + +static void __lambda_60(void *data, int argc, object self_73269, object r_73192) { + +closureN_type c_73435; +c_73435.hdr.mark = gc_color_red; + c_73435.hdr.grayed = 0; +c_73435.tag = closureN_tag; + c_73435.fn = (function_type)__lambda_59; +c_73435.num_args = 1; +c_73435.num_elements = 6; +c_73435.elements = (object *)alloca(sizeof(object) * 6); +c_73435.elements[0] = ((closureN)self_73269)->elements[0]; +c_73435.elements[1] = ((closureN)self_73269)->elements[1]; +c_73435.elements[2] = ((closureN)self_73269)->elements[2]; +c_73435.elements[3] = ((closureN)self_73269)->elements[3]; +c_73435.elements[4] = ((closureN)self_73269)->elements[4]; +c_73435.elements[5] = ((closureN)self_73269)->elements[5]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73435);; +} + +static void __lambda_59(void *data, int argc, object self_73270, object r_73233) { + +closureN_type c_73437; +c_73437.hdr.mark = gc_color_red; + c_73437.hdr.grayed = 0; +c_73437.tag = closureN_tag; + c_73437.fn = (function_type)__lambda_58; +c_73437.num_args = 1; +c_73437.num_elements = 6; +c_73437.elements = (object *)alloca(sizeof(object) * 6); +c_73437.elements[0] = ((closureN)self_73270)->elements[0]; +c_73437.elements[1] = ((closureN)self_73270)->elements[1]; +c_73437.elements[2] = ((closureN)self_73270)->elements[2]; +c_73437.elements[3] = ((closureN)self_73270)->elements[3]; +c_73437.elements[4] = ((closureN)self_73270)->elements[4]; +c_73437.elements[5] = ((closureN)self_73270)->elements[5]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73437, r_73233);; +} + +static void __lambda_58(void *data, int argc, object self_73271, object r_73193) { + +closureN_type c_73439; +c_73439.hdr.mark = gc_color_red; + c_73439.hdr.grayed = 0; +c_73439.tag = closureN_tag; + c_73439.fn = (function_type)__lambda_57; +c_73439.num_args = 1; +c_73439.num_elements = 6; +c_73439.elements = (object *)alloca(sizeof(object) * 6); +c_73439.elements[0] = ((closureN)self_73271)->elements[0]; +c_73439.elements[1] = ((closureN)self_73271)->elements[1]; +c_73439.elements[2] = ((closureN)self_73271)->elements[2]; +c_73439.elements[3] = ((closureN)self_73271)->elements[3]; +c_73439.elements[4] = ((closureN)self_73271)->elements[4]; +c_73439.elements[5] = ((closureN)self_73271)->elements[5]; + +return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_73439);; +} + +static void __lambda_57(void *data, int argc, object self_73272, object j_95s_7354_73124) { + +closureN_type c_73441; +c_73441.hdr.mark = gc_color_red; + c_73441.hdr.grayed = 0; +c_73441.tag = closureN_tag; + c_73441.fn = (function_type)__lambda_56; +c_73441.num_args = 1; +c_73441.num_elements = 7; +c_73441.elements = (object *)alloca(sizeof(object) * 7); +c_73441.elements[0] = ((closureN)self_73272)->elements[0]; +c_73441.elements[1] = j_95s_7354_73124; +c_73441.elements[2] = ((closureN)self_73272)->elements[1]; +c_73441.elements[3] = ((closureN)self_73272)->elements[2]; +c_73441.elements[4] = ((closureN)self_73272)->elements[3]; +c_73441.elements[5] = ((closureN)self_73272)->elements[4]; +c_73441.elements[6] = ((closureN)self_73272)->elements[5]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_73441);; +} + +static void __lambda_56(void *data, int argc, object self_73273, object t0_7357_73125) { + +closureN_type c_73443; +c_73443.hdr.mark = gc_color_red; + c_73443.hdr.grayed = 0; +c_73443.tag = closureN_tag; + c_73443.fn = (function_type)__lambda_55; +c_73443.num_args = 1; +c_73443.num_elements = 8; +c_73443.elements = (object *)alloca(sizeof(object) * 8); +c_73443.elements[0] = ((closureN)self_73273)->elements[0]; +c_73443.elements[1] = ((closureN)self_73273)->elements[1]; +c_73443.elements[2] = ((closureN)self_73273)->elements[2]; +c_73443.elements[3] = ((closureN)self_73273)->elements[3]; +c_73443.elements[4] = ((closureN)self_73273)->elements[4]; +c_73443.elements[5] = ((closureN)self_73273)->elements[5]; +c_73443.elements[6] = t0_7357_73125; +c_73443.elements[7] = ((closureN)self_73273)->elements[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73443);; +} + +static void __lambda_55(void *data, int argc, object self_73274, object j0_7360_73126) { + +closureN_type c_73445; +c_73445.hdr.mark = gc_color_red; + c_73445.hdr.grayed = 0; +c_73445.tag = closureN_tag; + c_73445.fn = (function_type)__lambda_54; +c_73445.num_args = 1; +c_73445.num_elements = 9; +c_73445.elements = (object *)alloca(sizeof(object) * 9); +c_73445.elements[0] = ((closureN)self_73274)->elements[0]; +c_73445.elements[1] = ((closureN)self_73274)->elements[1]; +c_73445.elements[2] = j0_7360_73126; +c_73445.elements[3] = ((closureN)self_73274)->elements[2]; +c_73445.elements[4] = ((closureN)self_73274)->elements[3]; +c_73445.elements[5] = ((closureN)self_73274)->elements[4]; +c_73445.elements[6] = ((closureN)self_73274)->elements[5]; +c_73445.elements[7] = ((closureN)self_73274)->elements[6]; +c_73445.elements[8] = ((closureN)self_73274)->elements[7]; + +return_closcall1(data,(closure)&c_73445, boolean_f);; +} + +static void __lambda_54(void *data, int argc, object self_73275, object loop_7365_73129) { + +closureN_type c_73447; +c_73447.hdr.mark = gc_color_red; + c_73447.hdr.grayed = 0; +c_73447.tag = closureN_tag; + c_73447.fn = (function_type)__lambda_53; +c_73447.num_args = 1; +c_73447.num_elements = 9; +c_73447.elements = (object *)alloca(sizeof(object) * 9); +c_73447.elements[0] = ((closureN)self_73275)->elements[0]; +c_73447.elements[1] = ((closureN)self_73275)->elements[1]; +c_73447.elements[2] = ((closureN)self_73275)->elements[2]; +c_73447.elements[3] = ((closureN)self_73275)->elements[3]; +c_73447.elements[4] = ((closureN)self_73275)->elements[4]; +c_73447.elements[5] = ((closureN)self_73275)->elements[5]; +c_73447.elements[6] = ((closureN)self_73275)->elements[6]; +c_73447.elements[7] = ((closureN)self_73275)->elements[7]; +c_73447.elements[8] = ((closureN)self_73275)->elements[8]; + + +make_cell(c_73585,loop_7365_73129); +return_closcall1(data,(closure)&c_73447, &c_73585);; +} + +static void __lambda_53(void *data, int argc, object self_73276, object loop_7365_73129) { + +closureN_type c_73449; +c_73449.hdr.mark = gc_color_red; + c_73449.hdr.grayed = 0; +c_73449.tag = closureN_tag; + c_73449.fn = (function_type)__lambda_24; +c_73449.num_args = 1; +c_73449.num_elements = 2; +c_73449.elements = (object *)alloca(sizeof(object) * 2); +c_73449.elements[0] = ((closureN)self_73276)->elements[3]; +c_73449.elements[1] = loop_7365_73129; + + +closureN_type c_73457; +c_73457.hdr.mark = gc_color_red; + c_73457.hdr.grayed = 0; +c_73457.tag = closureN_tag; + c_73457.fn = (function_type)__lambda_52; +c_73457.num_args = 2; +c_73457.num_elements = 9; +c_73457.elements = (object *)alloca(sizeof(object) * 9); +c_73457.elements[0] = ((closureN)self_73276)->elements[0]; +c_73457.elements[1] = ((closureN)self_73276)->elements[1]; +c_73457.elements[2] = ((closureN)self_73276)->elements[2]; +c_73457.elements[3] = loop_7365_73129; +c_73457.elements[4] = ((closureN)self_73276)->elements[4]; +c_73457.elements[5] = ((closureN)self_73276)->elements[5]; +c_73457.elements[6] = ((closureN)self_73276)->elements[6]; +c_73457.elements[7] = ((closureN)self_73276)->elements[7]; +c_73457.elements[8] = ((closureN)self_73276)->elements[8]; + +return_closcall1(data,(closure)&c_73449, Cyc_set_cell(data, loop_7365_73129, &c_73457));; +} + +static void __lambda_52(void *data, int argc, object self_73277, object k_73199, object i_7366_73130, object result_7367_73131) { + object c_73460 = Cyc_num_fast_lt_op(data,i_7366_73130, ((closureN)self_73277)->elements[0]); +if( (boolean_f != c_73460) ){ + +closureN_type c_73464; +c_73464.hdr.mark = gc_color_red; + c_73464.hdr.grayed = 0; +c_73464.tag = closureN_tag; + c_73464.fn = (function_type)__lambda_25; +c_73464.num_args = 1; +c_73464.num_elements = 3; +c_73464.elements = (object *)alloca(sizeof(object) * 3); +c_73464.elements[0] = i_7366_73130; +c_73464.elements[1] = k_73199; +c_73464.elements[2] = ((closureN)self_73277)->elements[3]; + +return_closcall1(data, ((closureN)self_73277)->elements[8], &c_73464); +} else { + +closureN_type c_73477; +c_73477.hdr.mark = gc_color_red; + c_73477.hdr.grayed = 0; +c_73477.tag = closureN_tag; + c_73477.fn = (function_type)__lambda_51; +c_73477.num_args = 1; +c_73477.num_elements = 7; +c_73477.elements = (object *)alloca(sizeof(object) * 7); +c_73477.elements[0] = ((closureN)self_73277)->elements[1]; +c_73477.elements[1] = ((closureN)self_73277)->elements[2]; +c_73477.elements[2] = k_73199; +c_73477.elements[3] = ((closureN)self_73277)->elements[4]; +c_73477.elements[4] = result_7367_73131; +c_73477.elements[5] = ((closureN)self_73277)->elements[6]; +c_73477.elements[6] = ((closureN)self_73277)->elements[7]; + +return_closcall2(data, ((closureN)self_73277)->elements[5], &c_73477, result_7367_73131);} +; +} + +static void __lambda_51(void *data, int argc, object self_73279, object r_73203) { + if( (boolean_f != r_73203) ){ + +closureN_type c_73479; +c_73479.hdr.mark = gc_color_red; + c_73479.hdr.grayed = 0; +c_73479.tag = closureN_tag; + c_73479.fn = (function_type)__lambda_45; +c_73479.num_args = 1; +c_73479.num_elements = 7; +c_73479.elements = (object *)alloca(sizeof(object) * 7); +c_73479.elements[0] = ((closureN)self_73279)->elements[0]; +c_73479.elements[1] = ((closureN)self_73279)->elements[1]; +c_73479.elements[2] = ((closureN)self_73279)->elements[2]; +c_73479.elements[3] = ((closureN)self_73279)->elements[3]; +c_73479.elements[4] = ((closureN)self_73279)->elements[4]; +c_73479.elements[5] = ((closureN)self_73279)->elements[5]; +c_73479.elements[6] = ((closureN)self_73279)->elements[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73479); +} else { + +closureN_type c_73569; +c_73569.hdr.mark = gc_color_red; + c_73569.hdr.grayed = 0; +c_73569.tag = closureN_tag; + c_73569.fn = (function_type)__lambda_50; +c_73569.num_args = 1; +c_73569.num_elements = 2; +c_73569.elements = (object *)alloca(sizeof(object) * 2); +c_73569.elements[0] = ((closureN)self_73279)->elements[2]; +c_73569.elements[1] = ((closureN)self_73279)->elements[4]; + + +make_utf8_string_with_len(c_73582, "ERROR: returned incorrect result: ", 34, 34); +return_closcall2(data, __glo_display_scheme_write, &c_73569, &c_73582);} +; +} + +static void __lambda_50(void *data, int argc, object self_73300, object r_73228) { + +closureN_type c_73571; +c_73571.hdr.mark = gc_color_red; + c_73571.hdr.grayed = 0; +c_73571.tag = closureN_tag; + c_73571.fn = (function_type)__lambda_49; +c_73571.num_args = 1; +c_73571.num_elements = 2; +c_73571.elements = (object *)alloca(sizeof(object) * 2); +c_73571.elements[0] = ((closureN)self_73300)->elements[0]; +c_73571.elements[1] = ((closureN)self_73300)->elements[1]; + +return_closcall2(data, __glo_write_scheme_write, &c_73571, ((closureN)self_73300)->elements[1]);; +} + +static void __lambda_49(void *data, int argc, object self_73301, object r_73229) { + +closureN_type c_73573; +c_73573.hdr.mark = gc_color_red; + c_73573.hdr.grayed = 0; +c_73573.tag = closureN_tag; + c_73573.fn = (function_type)__lambda_48; +c_73573.num_args = 1; +c_73573.num_elements = 2; +c_73573.elements = (object *)alloca(sizeof(object) * 2); +c_73573.elements[0] = ((closureN)self_73301)->elements[0]; +c_73573.elements[1] = ((closureN)self_73301)->elements[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73573);; +} + +static void __lambda_48(void *data, int argc, object self_73302, object r_73230) { + +closureN_type c_73575; +c_73575.hdr.mark = gc_color_red; + c_73575.hdr.grayed = 0; +c_73575.tag = closureN_tag; + c_73575.fn = (function_type)__lambda_47; +c_73575.num_args = 1; +c_73575.num_elements = 2; +c_73575.elements = (object *)alloca(sizeof(object) * 2); +c_73575.elements[0] = ((closureN)self_73302)->elements[0]; +c_73575.elements[1] = ((closureN)self_73302)->elements[1]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73575);; +} + +static void __lambda_47(void *data, int argc, object self_73303, object r_73232) { + +closureN_type c_73577; +c_73577.hdr.mark = gc_color_red; + c_73577.hdr.grayed = 0; +c_73577.tag = closureN_tag; + c_73577.fn = (function_type)__lambda_46; +c_73577.num_args = 1; +c_73577.num_elements = 2; +c_73577.elements = (object *)alloca(sizeof(object) * 2); +c_73577.elements[0] = ((closureN)self_73303)->elements[0]; +c_73577.elements[1] = ((closureN)self_73303)->elements[1]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73577, r_73232);; +} + +static void __lambda_46(void *data, int argc, object self_73304, object r_73231) { + return_closcall1(data, ((closureN)self_73304)->elements[0], ((closureN)self_73304)->elements[1]);; +} + +static void __lambda_45(void *data, int argc, object self_73280, object j1_7376_73132) { + +closureN_type c_73481; +c_73481.hdr.mark = gc_color_red; + c_73481.hdr.grayed = 0; +c_73481.tag = closureN_tag; + c_73481.fn = (function_type)__lambda_44; +c_73481.num_args = 1; +c_73481.num_elements = 8; +c_73481.elements = (object *)alloca(sizeof(object) * 8); +c_73481.elements[0] = ((closureN)self_73280)->elements[0]; +c_73481.elements[1] = ((closureN)self_73280)->elements[1]; +c_73481.elements[2] = j1_7376_73132; +c_73481.elements[3] = ((closureN)self_73280)->elements[2]; +c_73481.elements[4] = ((closureN)self_73280)->elements[3]; +c_73481.elements[5] = ((closureN)self_73280)->elements[4]; +c_73481.elements[6] = ((closureN)self_73280)->elements[5]; +c_73481.elements[7] = ((closureN)self_73280)->elements[6]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_73481);; +} + +static void __lambda_44(void *data, int argc, object self_73281, object t1_7379_73133) { + +closureN_type c_73486; +c_73486.hdr.mark = gc_color_red; + c_73486.hdr.grayed = 0; +c_73486.tag = closureN_tag; + c_73486.fn = (function_type)__lambda_43; +c_73486.num_args = 1; +c_73486.num_elements = 6; +c_73486.elements = (object *)alloca(sizeof(object) * 6); +c_73486.elements[0] = ((closureN)self_73281)->elements[0]; +c_73486.elements[1] = ((closureN)self_73281)->elements[1]; +c_73486.elements[2] = ((closureN)self_73281)->elements[2]; +c_73486.elements[3] = ((closureN)self_73281)->elements[3]; +c_73486.elements[4] = ((closureN)self_73281)->elements[4]; +c_73486.elements[5] = ((closureN)self_73281)->elements[5]; + + +complex_num_type local_73565; object c_73566 = Cyc_fast_sub(data,&local_73565,t1_7379_73133, ((closureN)self_73281)->elements[7]); +return_closcall2(data, car(((closureN)self_73281)->elements[6]), &c_73486, c_73566);; +} + +static void __lambda_43(void *data, int argc, object self_73282, object secs2_7388_73136) { + +closureN_type c_73488; +c_73488.hdr.mark = gc_color_red; + c_73488.hdr.grayed = 0; +c_73488.tag = closureN_tag; + c_73488.fn = (function_type)__lambda_42; +c_73488.num_args = 1; +c_73488.num_elements = 7; +c_73488.elements = (object *)alloca(sizeof(object) * 7); +c_73488.elements[0] = ((closureN)self_73282)->elements[0]; +c_73488.elements[1] = ((closureN)self_73282)->elements[1]; +c_73488.elements[2] = ((closureN)self_73282)->elements[2]; +c_73488.elements[3] = ((closureN)self_73282)->elements[3]; +c_73488.elements[4] = ((closureN)self_73282)->elements[4]; +c_73488.elements[5] = ((closureN)self_73282)->elements[5]; +c_73488.elements[6] = secs2_7388_73136; + + +make_utf8_string_with_len(c_73562, "Elapsed time: ", 14, 14); +return_closcall2(data, __glo_display_scheme_write, &c_73488, &c_73562);; +} + +static void __lambda_42(void *data, int argc, object self_73283, object r_73210) { + +closureN_type c_73490; +c_73490.hdr.mark = gc_color_red; + c_73490.hdr.grayed = 0; +c_73490.tag = closureN_tag; + c_73490.fn = (function_type)__lambda_41; +c_73490.num_args = 1; +c_73490.num_elements = 7; +c_73490.elements = (object *)alloca(sizeof(object) * 7); +c_73490.elements[0] = ((closureN)self_73283)->elements[0]; +c_73490.elements[1] = ((closureN)self_73283)->elements[1]; +c_73490.elements[2] = ((closureN)self_73283)->elements[2]; +c_73490.elements[3] = ((closureN)self_73283)->elements[3]; +c_73490.elements[4] = ((closureN)self_73283)->elements[4]; +c_73490.elements[5] = ((closureN)self_73283)->elements[5]; +c_73490.elements[6] = ((closureN)self_73283)->elements[6]; + + +complex_num_type local_73557; object c_73558 = Cyc_fast_sub(data,&local_73557,((closureN)self_73283)->elements[2], ((closureN)self_73283)->elements[1]); + +complex_num_type local_73553; object c_73554 = Cyc_fast_div(data,&local_73553,c_73558, ((closureN)self_73283)->elements[0]); + +complex_num_type local_73549; object c_73550 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73549,c_73554); +return_closcall2(data, __glo_write_scheme_write, &c_73490, c_73550);; +} + +static void __lambda_41(void *data, int argc, object self_73284, object r_73211) { + +closureN_type c_73492; +c_73492.hdr.mark = gc_color_red; + c_73492.hdr.grayed = 0; +c_73492.tag = closureN_tag; + c_73492.fn = (function_type)__lambda_40; +c_73492.num_args = 1; +c_73492.num_elements = 7; +c_73492.elements = (object *)alloca(sizeof(object) * 7); +c_73492.elements[0] = ((closureN)self_73284)->elements[0]; +c_73492.elements[1] = ((closureN)self_73284)->elements[1]; +c_73492.elements[2] = ((closureN)self_73284)->elements[2]; +c_73492.elements[3] = ((closureN)self_73284)->elements[3]; +c_73492.elements[4] = ((closureN)self_73284)->elements[4]; +c_73492.elements[5] = ((closureN)self_73284)->elements[5]; +c_73492.elements[6] = ((closureN)self_73284)->elements[6]; + + +make_utf8_string_with_len(c_73546, " seconds (", 10, 10); +return_closcall2(data, __glo_display_scheme_write, &c_73492, &c_73546);; +} + +static void __lambda_40(void *data, int argc, object self_73285, object r_73212) { + +closureN_type c_73494; +c_73494.hdr.mark = gc_color_red; + c_73494.hdr.grayed = 0; +c_73494.tag = closureN_tag; + c_73494.fn = (function_type)__lambda_39; +c_73494.num_args = 1; +c_73494.num_elements = 6; +c_73494.elements = (object *)alloca(sizeof(object) * 6); +c_73494.elements[0] = ((closureN)self_73285)->elements[0]; +c_73494.elements[1] = ((closureN)self_73285)->elements[1]; +c_73494.elements[2] = ((closureN)self_73285)->elements[2]; +c_73494.elements[3] = ((closureN)self_73285)->elements[3]; +c_73494.elements[4] = ((closureN)self_73285)->elements[4]; +c_73494.elements[5] = ((closureN)self_73285)->elements[5]; + +return_closcall2(data, __glo_write_scheme_write, &c_73494, ((closureN)self_73285)->elements[6]);; +} + +static void __lambda_39(void *data, int argc, object self_73286, object r_73213) { + +closureN_type c_73496; +c_73496.hdr.mark = gc_color_red; + c_73496.hdr.grayed = 0; +c_73496.tag = closureN_tag; + c_73496.fn = (function_type)__lambda_38; +c_73496.num_args = 1; +c_73496.num_elements = 6; +c_73496.elements = (object *)alloca(sizeof(object) * 6); +c_73496.elements[0] = ((closureN)self_73286)->elements[0]; +c_73496.elements[1] = ((closureN)self_73286)->elements[1]; +c_73496.elements[2] = ((closureN)self_73286)->elements[2]; +c_73496.elements[3] = ((closureN)self_73286)->elements[3]; +c_73496.elements[4] = ((closureN)self_73286)->elements[4]; +c_73496.elements[5] = ((closureN)self_73286)->elements[5]; + + +make_utf8_string_with_len(c_73544, ") for ", 6, 6); +return_closcall2(data, __glo_display_scheme_write, &c_73496, &c_73544);; +} + +static void __lambda_38(void *data, int argc, object self_73287, object r_73214) { + +closureN_type c_73498; +c_73498.hdr.mark = gc_color_red; + c_73498.hdr.grayed = 0; +c_73498.tag = closureN_tag; + c_73498.fn = (function_type)__lambda_37; +c_73498.num_args = 1; +c_73498.num_elements = 6; +c_73498.elements = (object *)alloca(sizeof(object) * 6); +c_73498.elements[0] = ((closureN)self_73287)->elements[0]; +c_73498.elements[1] = ((closureN)self_73287)->elements[1]; +c_73498.elements[2] = ((closureN)self_73287)->elements[2]; +c_73498.elements[3] = ((closureN)self_73287)->elements[3]; +c_73498.elements[4] = ((closureN)self_73287)->elements[4]; +c_73498.elements[5] = ((closureN)self_73287)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73498, ((closureN)self_73287)->elements[4]);; +} + +static void __lambda_37(void *data, int argc, object self_73288, object r_73215) { + +closureN_type c_73500; +c_73500.hdr.mark = gc_color_red; + c_73500.hdr.grayed = 0; +c_73500.tag = closureN_tag; + c_73500.fn = (function_type)__lambda_36; +c_73500.num_args = 1; +c_73500.num_elements = 6; +c_73500.elements = (object *)alloca(sizeof(object) * 6); +c_73500.elements[0] = ((closureN)self_73288)->elements[0]; +c_73500.elements[1] = ((closureN)self_73288)->elements[1]; +c_73500.elements[2] = ((closureN)self_73288)->elements[2]; +c_73500.elements[3] = ((closureN)self_73288)->elements[3]; +c_73500.elements[4] = ((closureN)self_73288)->elements[4]; +c_73500.elements[5] = ((closureN)self_73288)->elements[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73500);; +} + +static void __lambda_36(void *data, int argc, object self_73289, object r_73216) { + +closureN_type c_73502; +c_73502.hdr.mark = gc_color_red; + c_73502.hdr.grayed = 0; +c_73502.tag = closureN_tag; + c_73502.fn = (function_type)__lambda_35; +c_73502.num_args = 1; +c_73502.num_elements = 6; +c_73502.elements = (object *)alloca(sizeof(object) * 6); +c_73502.elements[0] = ((closureN)self_73289)->elements[0]; +c_73502.elements[1] = ((closureN)self_73289)->elements[1]; +c_73502.elements[2] = ((closureN)self_73289)->elements[2]; +c_73502.elements[3] = ((closureN)self_73289)->elements[3]; +c_73502.elements[4] = ((closureN)self_73289)->elements[4]; +c_73502.elements[5] = ((closureN)self_73289)->elements[5]; + + +make_utf8_string_with_len(c_73542, "+!CSVLINE!+", 11, 11); +return_closcall2(data, __glo_display_scheme_write, &c_73502, &c_73542);; +} + +static void __lambda_35(void *data, int argc, object self_73290, object r_73217) { + +closureN_type c_73504; +c_73504.hdr.mark = gc_color_red; + c_73504.hdr.grayed = 0; +c_73504.tag = closureN_tag; + c_73504.fn = (function_type)__lambda_34; +c_73504.num_args = 1; +c_73504.num_elements = 6; +c_73504.elements = (object *)alloca(sizeof(object) * 6); +c_73504.elements[0] = ((closureN)self_73290)->elements[0]; +c_73504.elements[1] = ((closureN)self_73290)->elements[1]; +c_73504.elements[2] = ((closureN)self_73290)->elements[2]; +c_73504.elements[3] = ((closureN)self_73290)->elements[3]; +c_73504.elements[4] = ((closureN)self_73290)->elements[4]; +c_73504.elements[5] = ((closureN)self_73290)->elements[5]; + +return_closcall1(data, __glo_this_91scheme_91implementation_91name, &c_73504);; +} + +static void __lambda_34(void *data, int argc, object self_73291, object r_73225) { + +closureN_type c_73506; +c_73506.hdr.mark = gc_color_red; + c_73506.hdr.grayed = 0; +c_73506.tag = closureN_tag; + c_73506.fn = (function_type)__lambda_33; +c_73506.num_args = 1; +c_73506.num_elements = 6; +c_73506.elements = (object *)alloca(sizeof(object) * 6); +c_73506.elements[0] = ((closureN)self_73291)->elements[0]; +c_73506.elements[1] = ((closureN)self_73291)->elements[1]; +c_73506.elements[2] = ((closureN)self_73291)->elements[2]; +c_73506.elements[3] = ((closureN)self_73291)->elements[3]; +c_73506.elements[4] = ((closureN)self_73291)->elements[4]; +c_73506.elements[5] = ((closureN)self_73291)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73506, r_73225);; +} + +static void __lambda_33(void *data, int argc, object self_73292, object r_73218) { + +closureN_type c_73508; +c_73508.hdr.mark = gc_color_red; + c_73508.hdr.grayed = 0; +c_73508.tag = closureN_tag; + c_73508.fn = (function_type)__lambda_32; +c_73508.num_args = 1; +c_73508.num_elements = 6; +c_73508.elements = (object *)alloca(sizeof(object) * 6); +c_73508.elements[0] = ((closureN)self_73292)->elements[0]; +c_73508.elements[1] = ((closureN)self_73292)->elements[1]; +c_73508.elements[2] = ((closureN)self_73292)->elements[2]; +c_73508.elements[3] = ((closureN)self_73292)->elements[3]; +c_73508.elements[4] = ((closureN)self_73292)->elements[4]; +c_73508.elements[5] = ((closureN)self_73292)->elements[5]; + + +make_utf8_string_with_len(c_73541, ",", 1, 1); +return_closcall2(data, __glo_display_scheme_write, &c_73508, &c_73541);; +} + +static void __lambda_32(void *data, int argc, object self_73293, object r_73219) { + +closureN_type c_73510; +c_73510.hdr.mark = gc_color_red; + c_73510.hdr.grayed = 0; +c_73510.tag = closureN_tag; + c_73510.fn = (function_type)__lambda_31; +c_73510.num_args = 1; +c_73510.num_elements = 5; +c_73510.elements = (object *)alloca(sizeof(object) * 5); +c_73510.elements[0] = ((closureN)self_73293)->elements[0]; +c_73510.elements[1] = ((closureN)self_73293)->elements[1]; +c_73510.elements[2] = ((closureN)self_73293)->elements[2]; +c_73510.elements[3] = ((closureN)self_73293)->elements[3]; +c_73510.elements[4] = ((closureN)self_73293)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73510, ((closureN)self_73293)->elements[4]);; +} + +static void __lambda_31(void *data, int argc, object self_73294, object r_73220) { + +closureN_type c_73512; +c_73512.hdr.mark = gc_color_red; + c_73512.hdr.grayed = 0; +c_73512.tag = closureN_tag; + c_73512.fn = (function_type)__lambda_30; +c_73512.num_args = 1; +c_73512.num_elements = 5; +c_73512.elements = (object *)alloca(sizeof(object) * 5); +c_73512.elements[0] = ((closureN)self_73294)->elements[0]; +c_73512.elements[1] = ((closureN)self_73294)->elements[1]; +c_73512.elements[2] = ((closureN)self_73294)->elements[2]; +c_73512.elements[3] = ((closureN)self_73294)->elements[3]; +c_73512.elements[4] = ((closureN)self_73294)->elements[4]; + + +make_utf8_string_with_len(c_73539, ",", 1, 1); +return_closcall2(data, __glo_display_scheme_write, &c_73512, &c_73539);; +} + +static void __lambda_30(void *data, int argc, object self_73295, object r_73221) { + +closureN_type c_73514; +c_73514.hdr.mark = gc_color_red; + c_73514.hdr.grayed = 0; +c_73514.tag = closureN_tag; + c_73514.fn = (function_type)__lambda_29; +c_73514.num_args = 1; +c_73514.num_elements = 2; +c_73514.elements = (object *)alloca(sizeof(object) * 2); +c_73514.elements[0] = ((closureN)self_73295)->elements[3]; +c_73514.elements[1] = ((closureN)self_73295)->elements[4]; + + +complex_num_type local_73534; object c_73535 = Cyc_fast_sub(data,&local_73534,((closureN)self_73295)->elements[2], ((closureN)self_73295)->elements[1]); + +complex_num_type local_73530; object c_73531 = Cyc_fast_div(data,&local_73530,c_73535, ((closureN)self_73295)->elements[0]); + +complex_num_type local_73526; object c_73527 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73526,c_73531); +return_closcall2(data, __glo_display_scheme_write, &c_73514, c_73527);; +} + +static void __lambda_29(void *data, int argc, object self_73296, object r_73222) { + +closureN_type c_73516; +c_73516.hdr.mark = gc_color_red; + c_73516.hdr.grayed = 0; +c_73516.tag = closureN_tag; + c_73516.fn = (function_type)__lambda_28; +c_73516.num_args = 1; +c_73516.num_elements = 2; +c_73516.elements = (object *)alloca(sizeof(object) * 2); +c_73516.elements[0] = ((closureN)self_73296)->elements[0]; +c_73516.elements[1] = ((closureN)self_73296)->elements[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73516);; +} + +static void __lambda_28(void *data, int argc, object self_73297, object r_73223) { + +closureN_type c_73518; +c_73518.hdr.mark = gc_color_red; + c_73518.hdr.grayed = 0; +c_73518.tag = closureN_tag; + c_73518.fn = (function_type)__lambda_27; +c_73518.num_args = 1; +c_73518.num_elements = 2; +c_73518.elements = (object *)alloca(sizeof(object) * 2); +c_73518.elements[0] = ((closureN)self_73297)->elements[0]; +c_73518.elements[1] = ((closureN)self_73297)->elements[1]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73518);; +} + +static void __lambda_27(void *data, int argc, object self_73298, object r_73224) { + +closureN_type c_73520; +c_73520.hdr.mark = gc_color_red; + c_73520.hdr.grayed = 0; +c_73520.tag = closureN_tag; + c_73520.fn = (function_type)__lambda_26; +c_73520.num_args = 1; +c_73520.num_elements = 2; +c_73520.elements = (object *)alloca(sizeof(object) * 2); +c_73520.elements[0] = ((closureN)self_73298)->elements[0]; +c_73520.elements[1] = ((closureN)self_73298)->elements[1]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73520, r_73224);; +} + +static void __lambda_26(void *data, int argc, object self_73299, object r_73204) { + return_closcall1(data, ((closureN)self_73299)->elements[0], ((closureN)self_73299)->elements[1]);; +} + +static void __lambda_25(void *data, int argc, object self_73278, object r_73202) { + +complex_num_type local_73472; object c_73473 = Cyc_fast_sum(data,&local_73472,((closureN)self_73278)->elements[0], obj_int2obj(1)); +return_closcall3(data, car(((closureN)self_73278)->elements[2]), ((closureN)self_73278)->elements[1], c_73473, r_73202);; +} + +static void __lambda_24(void *data, int argc, object self_73305, object r_73197) { + return_closcall3(data, car(((closureN)self_73305)->elements[1]), ((closureN)self_73305)->elements[0], obj_int2obj(0), boolean_f);; +} + +static void __lambda_23(void *data, int argc, closure _,object k_73174, object r_7342_73111, object x_7343_73112) { + Cyc_st_add(data, "diviter.scm:hide"); + +closureN_type c_73399; +c_73399.hdr.mark = gc_color_red; + c_73399.hdr.grayed = 0; +c_73399.tag = closureN_tag; + c_73399.fn = (function_type)__lambda_21; +c_73399.num_args = 0; +c_73399.num_elements = 1; +c_73399.elements = (object *)alloca(sizeof(object) * 1); +c_73399.elements[0] = r_7342_73111; + + +closureN_type c_73416; +c_73416.hdr.mark = gc_color_red; + c_73416.hdr.grayed = 0; +c_73416.tag = closureN_tag; + c_73416.fn = (function_type)__lambda_22; +c_73416.num_args = 2; +c_73416.num_elements = 1; +c_73416.elements = (object *)alloca(sizeof(object) * 1); +c_73416.elements[0] = x_7343_73112; + +return_closcall3(data, __glo_call_91with_91values_scheme_base, k_73174, &c_73399, &c_73416);; +} + +static void __lambda_22(void *data, int argc, object self_73262, object k_73177, object v_7345_73114, object i_7346_73115) { + return_closcall2(data, Cyc_vector_ref(data, v_7345_73114, i_7346_73115), k_73177, ((closureN)self_73262)->elements[0]);; +} + +static void __lambda_21(void *data, int argc, object self_73257, object k_73179) { + +closureN_type c_73401; +c_73401.hdr.mark = gc_color_red; + c_73401.hdr.grayed = 0; +c_73401.tag = closureN_tag; + c_73401.fn = (function_type)__lambda_19; +c_73401.num_args = 1; +c_73401.num_elements = 2; +c_73401.elements = (object *)alloca(sizeof(object) * 2); +c_73401.elements[0] = k_73179; +c_73401.elements[1] = ((closureN)self_73257)->elements[0]; + + +mclosure0(c_73414, (function_type)__lambda_20);c_73414.num_args = 1; +return_closcall3(data, __glo_vector_scheme_base, &c_73401, __glo_values_scheme_base, &c_73414);; +} + +static void __lambda_20(void *data, int argc, object self_73261, object k_73185, object x_7344_73113) { + return_closcall1(data, k_73185, x_7344_73113);; +} + +static void __lambda_19(void *data, int argc, object self_73258, object r_73180) { + +closureN_type c_73403; +c_73403.hdr.mark = gc_color_red; + c_73403.hdr.grayed = 0; +c_73403.tag = closureN_tag; + c_73403.fn = (function_type)__lambda_17; +c_73403.num_args = 0; +c_73403.num_elements = 1; +c_73403.elements = (object *)alloca(sizeof(object) * 1); +c_73403.elements[0] = ((closureN)self_73258)->elements[1]; + + +closureN_type c_73410; +c_73410.hdr.mark = gc_color_red; + c_73410.hdr.grayed = 0; +c_73410.tag = closureN_tag; + c_73410.fn = (function_type)__lambda_18; +c_73410.num_args = 1; +c_73410.num_elements = 2; +c_73410.elements = (object *)alloca(sizeof(object) * 2); +c_73410.elements[0] = ((closureN)self_73258)->elements[0]; +c_73410.elements[1] = r_73180; + +return_closcall1(data,(closure)&c_73403, &c_73410);; +} + +static void __lambda_18(void *data, int argc, object self_73259, object r_73181) { + return_closcall3(data, __glo_values_scheme_base, ((closureN)self_73259)->elements[0], ((closureN)self_73259)->elements[1], r_73181);; +} + +static void __lambda_17(void *data, int argc, object self_73260, object k_73182) { + object c_73406 = Cyc_num_fast_lt_op(data,((closureN)self_73260)->elements[0], obj_int2obj(100)); +if( (boolean_f != c_73406) ){ + return_closcall1(data, k_73182, obj_int2obj(0)); +} else { + return_closcall1(data, k_73182, obj_int2obj(1));} +; +} + +static void __lambda_16(void *data, int argc, closure _,object k_73161) { + Cyc_st_add(data, "diviter.scm:main"); + +closureN_type c_73382; +c_73382.hdr.mark = gc_color_red; + c_73382.hdr.grayed = 0; +c_73382.tag = closureN_tag; + c_73382.fn = (function_type)__lambda_15; +c_73382.num_args = 1; +c_73382.num_elements = 1; +c_73382.elements = (object *)alloca(sizeof(object) * 1); +c_73382.elements[0] = k_73161; + +return_closcall3(data, __glo_hide, &c_73382, obj_int2obj(1000000), obj_int2obj(1000));; +} + +static void __lambda_15(void *data, int argc, object self_73253, object r_73171) { + +closureN_type c_73384; +c_73384.hdr.mark = gc_color_red; + c_73384.hdr.grayed = 0; +c_73384.tag = closureN_tag; + c_73384.fn = (function_type)__lambda_14; +c_73384.num_args = 1; +c_73384.num_elements = 1; +c_73384.elements = (object *)alloca(sizeof(object) * 1); +c_73384.elements[0] = ((closureN)self_73253)->elements[0]; + +return_closcall2(data, __glo_create_91n, &c_73384, r_73171);; +} + +static void __lambda_14(void *data, int argc, object self_73254, object ll_7336_73108) { + +make_utf8_string_with_len(c_73387, "diviter:1000:1000000", 20, 20); + +closureN_type c_73388; +c_73388.hdr.mark = gc_color_red; + c_73388.hdr.grayed = 0; +c_73388.tag = closureN_tag; + c_73388.fn = (function_type)__lambda_12; +c_73388.num_args = 0; +c_73388.num_elements = 1; +c_73388.elements = (object *)alloca(sizeof(object) * 1); +c_73388.elements[0] = ll_7336_73108; + + +mclosure0(c_73391, (function_type)__lambda_13);c_73391.num_args = 1; +return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_73254)->elements[0], &c_73387, obj_int2obj(1000000), &c_73388, &c_73391);; +} + +static void __lambda_13(void *data, int argc, object self_73256, object k_73168, object result_7341_73110) { + return_closcall1(data, k_73168, equalp(Cyc_length(data, result_7341_73110), obj_int2obj(500)));; +} + +static void __lambda_12(void *data, int argc, object self_73255, object k_73170) { + return_closcall2(data, __glo_iterative_91div2, k_73170, ((closureN)self_73255)->elements[0]);; +} + +static void __lambda_11(void *data, int argc, closure _,object k_73150, object l_7310_7397) { + Cyc_st_add(data, "diviter.scm:iterative-div2"); + +closureN_type c_73346; +c_73346.hdr.mark = gc_color_red; + c_73346.hdr.grayed = 0; +c_73346.tag = closureN_tag; + c_73346.fn = (function_type)__lambda_10; +c_73346.num_args = 2; +c_73346.num_elements = 1; +c_73346.elements = (object *)alloca(sizeof(object) * 1); +c_73346.elements[0] = k_73150; + +return_closcall2(data,(closure)&c_73346, l_7310_7397, NULL);; +} + +static void __lambda_10(void *data, int argc, object self_73248, object l_7314_7398, object a_7315_7399) { + +closureN_type c_73348; +c_73348.hdr.mark = gc_color_red; + c_73348.hdr.grayed = 0; +c_73348.tag = closureN_tag; + c_73348.fn = (function_type)__lambda_9; +c_73348.num_args = 1; +c_73348.num_elements = 3; +c_73348.elements = (object *)alloca(sizeof(object) * 3); +c_73348.elements[0] = a_7315_7399; +c_73348.elements[1] = ((closureN)self_73248)->elements[0]; +c_73348.elements[2] = l_7314_7398; + +return_closcall1(data,(closure)&c_73348, boolean_f);; +} + +static void __lambda_9(void *data, int argc, object self_73249, object lp_7311_7316_73100) { + +closureN_type c_73350; +c_73350.hdr.mark = gc_color_red; + c_73350.hdr.grayed = 0; +c_73350.tag = closureN_tag; + c_73350.fn = (function_type)__lambda_8; +c_73350.num_args = 1; +c_73350.num_elements = 3; +c_73350.elements = (object *)alloca(sizeof(object) * 3); +c_73350.elements[0] = ((closureN)self_73249)->elements[0]; +c_73350.elements[1] = ((closureN)self_73249)->elements[1]; +c_73350.elements[2] = ((closureN)self_73249)->elements[2]; + + +make_cell(c_73379,lp_7311_7316_73100); +return_closcall1(data,(closure)&c_73350, &c_73379);; +} + +static void __lambda_8(void *data, int argc, object self_73250, object lp_7311_7316_73100) { + +closureN_type c_73352; +c_73352.hdr.mark = gc_color_red; + c_73352.hdr.grayed = 0; +c_73352.tag = closureN_tag; + c_73352.fn = (function_type)__lambda_6; +c_73352.num_args = 1; +c_73352.num_elements = 4; +c_73352.elements = (object *)alloca(sizeof(object) * 4); +c_73352.elements[0] = ((closureN)self_73250)->elements[0]; +c_73352.elements[1] = ((closureN)self_73250)->elements[1]; +c_73352.elements[2] = ((closureN)self_73250)->elements[2]; +c_73352.elements[3] = lp_7311_7316_73100; + + +closureN_type c_73362; +c_73362.hdr.mark = gc_color_red; + c_73362.hdr.grayed = 0; +c_73362.tag = closureN_tag; + c_73362.fn = (function_type)__lambda_7; +c_73362.num_args = 2; +c_73362.num_elements = 1; +c_73362.elements = (object *)alloca(sizeof(object) * 1); +c_73362.elements[0] = lp_7311_7316_73100; + +return_closcall1(data,(closure)&c_73352, Cyc_set_cell(data, lp_7311_7316_73100, &c_73362));; +} + +static void __lambda_7(void *data, int argc, object self_73251, object k_73154, object l_7317_73101, object a_7318_73102) { + if( (boolean_f != Cyc_is_null(l_7317_73101)) ){ + return_closcall1(data, k_73154, a_7318_73102); +} else { + +make_pair(c_73374,Cyc_car(data, l_7317_73101), a_7318_73102); +return_closcall3(data, car(((closureN)self_73251)->elements[0]), k_73154, Cyc_cddr(data, l_7317_73101), &c_73374);} +; +} + +static void __lambda_6(void *data, int argc, object self_73252, object r_73152) { + return_closcall3(data, car(((closureN)self_73252)->elements[3]), ((closureN)self_73252)->elements[1], ((closureN)self_73252)->elements[2], ((closureN)self_73252)->elements[0]);; +} + +static void __lambda_5(void *data, int argc, closure _,object k_73139, object n_731_7391) { + Cyc_st_add(data, "diviter.scm:create-n"); + +closureN_type c_73309; +c_73309.hdr.mark = gc_color_red; + c_73309.hdr.grayed = 0; +c_73309.tag = closureN_tag; + c_73309.fn = (function_type)__lambda_4; +c_73309.num_args = 2; +c_73309.num_elements = 1; +c_73309.elements = (object *)alloca(sizeof(object) * 1); +c_73309.elements[0] = k_73139; + +return_closcall2(data,(closure)&c_73309, n_731_7391, NULL);; +} + +static void __lambda_4(void *data, int argc, object self_73243, object n_735_7392, object a_736_7393) { + +closureN_type c_73311; +c_73311.hdr.mark = gc_color_red; + c_73311.hdr.grayed = 0; +c_73311.tag = closureN_tag; + c_73311.fn = (function_type)__lambda_3; +c_73311.num_args = 1; +c_73311.num_elements = 3; +c_73311.elements = (object *)alloca(sizeof(object) * 3); +c_73311.elements[0] = a_736_7393; +c_73311.elements[1] = ((closureN)self_73243)->elements[0]; +c_73311.elements[2] = n_735_7392; + +return_closcall1(data,(closure)&c_73311, boolean_f);; +} + +static void __lambda_3(void *data, int argc, object self_73244, object lp_732_737_7394) { + +closureN_type c_73313; +c_73313.hdr.mark = gc_color_red; + c_73313.hdr.grayed = 0; +c_73313.tag = closureN_tag; + c_73313.fn = (function_type)__lambda_2; +c_73313.num_args = 1; +c_73313.num_elements = 3; +c_73313.elements = (object *)alloca(sizeof(object) * 3); +c_73313.elements[0] = ((closureN)self_73244)->elements[0]; +c_73313.elements[1] = ((closureN)self_73244)->elements[1]; +c_73313.elements[2] = ((closureN)self_73244)->elements[2]; + + +make_cell(c_73343,lp_732_737_7394); +return_closcall1(data,(closure)&c_73313, &c_73343);; +} + +static void __lambda_2(void *data, int argc, object self_73245, object lp_732_737_7394) { + +closureN_type c_73315; +c_73315.hdr.mark = gc_color_red; + c_73315.hdr.grayed = 0; +c_73315.tag = closureN_tag; + c_73315.fn = (function_type)__lambda_0; +c_73315.num_args = 1; +c_73315.num_elements = 4; +c_73315.elements = (object *)alloca(sizeof(object) * 4); +c_73315.elements[0] = ((closureN)self_73245)->elements[0]; +c_73315.elements[1] = ((closureN)self_73245)->elements[1]; +c_73315.elements[2] = lp_732_737_7394; +c_73315.elements[3] = ((closureN)self_73245)->elements[2]; + + +closureN_type c_73325; +c_73325.hdr.mark = gc_color_red; + c_73325.hdr.grayed = 0; +c_73325.tag = closureN_tag; + c_73325.fn = (function_type)__lambda_1; +c_73325.num_args = 2; +c_73325.num_elements = 1; +c_73325.elements = (object *)alloca(sizeof(object) * 1); +c_73325.elements[0] = lp_732_737_7394; + +return_closcall1(data,(closure)&c_73315, Cyc_set_cell(data, lp_732_737_7394, &c_73325));; +} + +static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395, object a_739_7396) { + object c_73328 = Cyc_num_fast_eq_op(data,n_738_7395, obj_int2obj(0)); +if( (boolean_f != c_73328) ){ + return_closcall1(data, k_73143, a_739_7396); +} else { + +complex_num_type local_73336; object c_73337 = Cyc_fast_sub(data,&local_73336,n_738_7395, obj_int2obj(1)); + +make_pair(c_73340,NULL, a_739_7396); +return_closcall3(data, car(((closureN)self_73246)->elements[0]), k_73143, c_73337, &c_73340);} +; +} + +static void __lambda_0(void *data, int argc, object self_73247, object r_73141) { + return_closcall3(data, car(((closureN)self_73247)->elements[2]), ((closureN)self_73247)->elements[1], ((closureN)self_73247)->elements[3], ((closureN)self_73247)->elements[0]);; +} + +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); +static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { +Cyc_set_globals_changed((gc_thread_data *)data); + + add_global((object *) &__glo_this_91scheme_91implementation_91name); + add_global((object *) &__glo_run_91r7rs_91benchmark); + add_global((object *) &__glo_hide); + add_global((object *) &__glo_main); + add_global((object *) &__glo_iterative_91div2); + add_global((object *) &__glo_create_91n); + mclosure0(c_73607, (function_type)__lambda_69);c_73607.num_args = 0; + __glo_this_91scheme_91implementation_91name = &c_73607; + mclosure0(c_73421, (function_type)__lambda_67);c_73421.num_args = 4; + __glo_run_91r7rs_91benchmark = &c_73421; + mclosure0(c_73397, (function_type)__lambda_23);c_73397.num_args = 2; + __glo_hide = &c_73397; + mclosure0(c_73380, (function_type)__lambda_16);c_73380.num_args = 0; + __glo_main = &c_73380; + mclosure0(c_73344, (function_type)__lambda_11);c_73344.num_args = 1; + __glo_iterative_91div2 = &c_73344; + mclosure0(c_73307, (function_type)__lambda_5);c_73307.num_args = 1; + __glo_create_91n = &c_73307; + + make_cvar(cvar_73617, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_73618, find_or_add_symbol("this-scheme-implementation-name"), &cvar_73617); + make_cvar(cvar_73619, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_73620, find_or_add_symbol("run-r7rs-benchmark"), &cvar_73619); + make_cvar(cvar_73621, (object *)&__glo_hide);make_pair(pair_73622, find_or_add_symbol("hide"), &cvar_73621); + make_cvar(cvar_73623, (object *)&__glo_main);make_pair(pair_73624, find_or_add_symbol("main"), &cvar_73623); + make_cvar(cvar_73625, (object *)&__glo_iterative_91div2);make_pair(pair_73626, find_or_add_symbol("iterative-div2"), &cvar_73625); + make_cvar(cvar_73627, (object *)&__glo_create_91n);make_pair(pair_73628, find_or_add_symbol("create-n"), &cvar_73627); +make_pair(c_73634, &pair_73618,Cyc_global_variables); +make_pair(c_73633, &pair_73620, &c_73634); +make_pair(c_73632, &pair_73622, &c_73633); +make_pair(c_73631, &pair_73624, &c_73632); +make_pair(c_73630, &pair_73626, &c_73631); +make_pair(c_73629, &pair_73628, &c_73630); +Cyc_global_variables = &c_73629; +mclosure1(c_done, c_entry_pt_first_lambda, &c_done); +mclosure1(c_73635, c_schemeread_entry_pt, &c_done); +mclosure1(c_73636, c_scheme_char_entry_pt, &c_73635); +mclosure1(c_73637, c_schemewrite_entry_pt, &c_73636); +mclosure1(c_73638, c_schemetime_entry_pt, &c_73637); +mclosure1(c_73639, c_schemebase_entry_pt, &c_73638); +mclosure1(c_73640, c_schemecyclonecommon_entry_pt, &c_73639); +(c_73640.fn)(data, 0, &c_73640, &c_73640); +} +static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) { + + + + + + + return_closcall1(data, __glo_main, primitive__75halt); +; +} +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;} diff --git a/tests/debug/diviter/diviter.scm b/tests/debug/diviter/diviter.scm new file mode 100644 index 00000000..9fe1def9 --- /dev/null +++ b/tests/debug/diviter/diviter.scm @@ -0,0 +1,98 @@ +;;; DIVITER -- Benchmark which divides by 2 using lists of n ()'s. + +(import (scheme base) (scheme read) (scheme write) (scheme time)) + +(define (create-n n) + (do ((n n (- n 1)) + (a '() (cons '() a))) + ((= n 0) a))) + +(define (iterative-div2 l) + (do ((l l (cddr l)) + (a '() (cons (car l) a))) + ((null? l) a))) + +(define (main) + (let* ((count 1000000) ;(read)) + (input1 1000 ) ;(read)) + (output 500 ) ;(read)) + (s2 (number->string count)) + (s1 (number->string input1)) + (ll (create-n (hide count input1))) + (name "diviter")) + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () + (iterative-div2 ll)) + (lambda (result) (equal? (length result) output))))) + +;;; The following code is appended to all benchmarks. + +;;; Given an integer and an object, returns the object +;;; without making it too easy for compilers to tell +;;; the object will be returned. + +(define (hide r x) + (call-with-values + (lambda () + (values (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) + ((vector-ref v i) x)))) + +;;; Given the name of a benchmark, +;;; the number of times it should be executed, +;;; a thunk that runs the benchmark once, +;;; and a unary predicate that is true of the +;;; correct results the thunk may return, +;;; runs the benchmark for the number of specified iterations. + +(define (run-r7rs-benchmark name count thunk ok?) + + ;; Rounds to thousandths. + (define (rounded x) + (/ (round (* 1000 x)) 1000)) + + (display "Running ") + (display name) + (newline) + (flush-output-port (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)