/**
** 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)
(char>=? scheme base)
(string=? scheme base)
(string<? scheme base)
(string<=? scheme base)
(string>? scheme base)
(string>=? scheme base)
(foldl scheme base)
(foldr scheme base)
(not scheme base)
(list? scheme base)
(zero? scheme base)
(positive? scheme base)
(negative? scheme base)
(append scheme base)
(list scheme base)
(make-list scheme base)
(list-copy scheme base)
(map scheme base)
(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)
"<srfi-hash-table>"
(size hash compare associate entries))
#(299
#[procedure]
#[procedure]
#[procedure]
#(()
((1
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((2
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((3
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((4
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((5
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((6
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((7
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$142 lp$2$7$94 r$142) #f))))
((8
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((9
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((10
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((11
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((12
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((13
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((14
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((15
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((%halt .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((17
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((18
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$153 lp$11$16$100 r$153) #f))))
((19
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((20
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((21
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((22
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((23
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((24
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((25
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$167) #f))))
((26
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((27
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$166) #t))))
((28
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((29
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((30
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((31
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((r$241 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t)))
(k$177 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(122
(k$240)
((Cyc-version
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(18
(k$154 l$17$101 a$18$102)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(17
(r$155)
((if r$155
(k$154 a$18$102)
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(16
(r$156)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(15
(r$158)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((34
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((35
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t))))
((36
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((37
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t))))
((38
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((39
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((40
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((41
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((42
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((43
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((44
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$176) #f))))
((45
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((46
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (k$182) #f))))
((47
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((Cyc-version
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f)))
(flush-output-port
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((50
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((51
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$184) #f))))
((52
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$175) #f))))
((53
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((54
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((55
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((56
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((57
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((58
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((59
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((60
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((61
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((62
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((63
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((64
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((65
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((66
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((67
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((68
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((69
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((70
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((71
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((72
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((73
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((74
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((75
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((76
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((77
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((78
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #f))))
((79
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((80
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f)))
(Cyc-fast-eq
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #f))))
((82
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((83
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((84
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #f))))
((85
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((86
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #f))))
((87
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((88
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #f))))
((89
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((90
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((91
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((92
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((93
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((94
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((95
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((r$242 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f)))
(k$154 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(117
(k$235 x$51$123)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(116
(r$237)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((98
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$198 loop$65$129 r$198) #f))))
((99
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((100
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((101
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((102
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((103
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t))))
((104
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((105
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t))))
((106
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((107
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#t ? () #t))))
((108
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((109
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((110
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((111
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((112
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((113
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((114
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((115
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((116
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((117
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (r$234 rounded$121 r$234) #f))))
((118
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((119
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((120
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((121
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((122
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((123
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((124
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
((Cyc-fast-plus
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(11
(k$139 n$1$91)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(10
(r$140)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(9
(n$5$92 a$6$93)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(8
(lp$2$7$94)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(2
(r$142)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(7
(k$143 n$8$95 a$9$96)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(6
(r$144)
((if r$144
(k$143 a$9$96)
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(5
(r$145)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(4
(r$147)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(22
(k$150 l$10$97)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(21
(r$151)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(20
(l$14$98 a$15$99)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(19
(lp$11$16$100)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(13
(r$153)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(18
(k$154 l$17$101 a$18$102)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(17
(r$155)
((if r$155
(k$154 a$18$102)
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(16
(r$156)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(15
(r$158)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(53
(k$174 r$42$111 x$43$112)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(45
(r$175)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(42
(r$176)
((call-with-values k$174 r$175 r$176))
#f))
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(44
(k$177 v$45$114 i$46$115)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(52
(k$179)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(50
(r$184)
((vector
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(49
(r$180)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(48
(k$182)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(7
(k$143 n$8$95 a$9$96)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(6
(r$144)
((if r$144
(k$143 a$9$96)
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(5
(r$145)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(4
(r$147)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(98
(k$199 i$66$130 result$67$131)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(97
(r$200)
((if r$200
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(58
()
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(57
(r$201)
((thunk$49$118
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(96
(r$203)
((if r$203
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(89
()
((current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(88
(r$205)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(86
(r$206)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(85
(t1$79$133)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(84
(r$207)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(83
(jifs$82$134)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(82
(r$227)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(81
(r$208)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(80
(secs$85$135)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(79
(r$226)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(78
(r$209)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(77
(secs2$88$136)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(76
()
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(95
()
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(41
(k$161)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(40
(count$21$103)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(39
(input1$24$104)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(38
(output$27$105)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(37
(r$162)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(36
(s2$30$106)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(35
(r$163)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(34
(s1$33$107)
((hide #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(33
(r$171)
((create-n
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(32
(r$164)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(31
(ll$36$108)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(30
(name$39$109)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(29
()
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(28
(r$165)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(26
(r$166)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(25
(k$168 result$41$110)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(25
(k$168 result$41$110)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(52
(k$179)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(50
(r$184)
((vector
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(49
(r$180)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(48
(k$182)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(120
(k$188 name$47$116
count$48$117
thunk$49$118
ok?$50$119)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(119
(rounded$121)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(118
(rounded$122)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(114
(r$234)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(113
(r$189)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(112
(r$190)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(111
(r$191)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(110
(r$192)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(109
(r$233)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(108
(r$193)
((jiffies-per-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(107
(r$194)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(106
(j/s$54$124)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(105
(r$195)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(104
(t0$57$125)
((current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(103
(r$196)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(102
(j0$60$126)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(101
()
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(100
(i$63$127
result$64$128)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(99
(loop$65$129)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(55
(r$198)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(98
(k$199 i$66$130
result$67$131)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(97
(r$200)
((if r$200
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(58
()
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(57
(r$201)
((thunk$49$118
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(96
(r$203)
((if r$203
(#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(89
()
((current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(88
(r$205)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(86
(r$206)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(85
(t1$79$133)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(84
(r$207)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(83
(jifs$82$134)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(82
(r$227)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(81
(r$208)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(80
(secs$85$135)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(79
(r$226)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(78
(r$209)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(77
(secs2$88$136)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(76
()
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(95
()
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(117
(k$235 x$51$123)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(116
(r$237)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(id args body has-cont))
#(44
(k$177 v$45$114 i$46$115)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<srfi-hash-table>"
(size hash compare associate entries))
#(191
#[procedure]
#[procedure]
#[procedure]
#(()
((1
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
()
()
((7
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (lp$2$7$94) #f))))
((8
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((9
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((11
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((12
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
((%halt .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(22
(k$150 l$10$97)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(20
(l$14$98 a$15$99)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(19
(lp$11$16$100)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (lp$11$16$100) #f))))
((19
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((20
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((22
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((25
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((27
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((28
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((31
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((r$241 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(122
(k$240)
((Cyc-version
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
()
()
()
()
((41
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((44
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((46
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (k$182) #f))))
()
((Cyc-version
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((49
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((51
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((52
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((53
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((54
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((56
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((59
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((60
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((61
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((62
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((63
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((64
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((65
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((66
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((67
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((68
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((69
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((70
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((71
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((72
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((73
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((74
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((75
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((77
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((jiffies-per-second
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(53
(k$174 r$42$111 x$43$112)
((call-with-values
k$174
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(52
(k$179)
((vector
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(49
(r$180)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(46
(r$181)
((values k$179 r$180 r$181))
#f))))
#f))
values
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(51
(k$185 x$44$113)
((k$185 x$44$113))
#t))))
#t))
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((87
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((90
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((91
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((92
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((93
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((94
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((x$51$123
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((98
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (loop$65$129) #f))))
((99
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((102
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((104
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((106
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((108
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((109
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((110
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((111
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((call-with-values
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((113
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
((117
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (rounded$121) #f))))
()
((119
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((120
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((121
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((122
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
((Cyc-fast-plus
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(41
(k$161)
((hide #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(33
(r$171)
((create-n
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(31
(ll$36$108)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(28
(r$165)
((run-r7rs-benchmark
k$161
r$165
1000000
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(27
(k$170)
((iterative-div2
k$170
ll$36$108))
#t))
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(11
(k$139 n$1$91)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(9
(n$5$92 a$6$93)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(8
(lp$2$7$94)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(120
(k$188 name$47$116
count$48$117
thunk$49$118
ok?$50$119)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(119
(rounded$121)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(113
(r$189)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(112
(r$190)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(111
(r$191)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(110
(r$192)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(109
(r$233)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(108
(r$193)
((jiffies-per-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(106
(j/s$54$124)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(104
(t0$57$125)
((current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(102
(j0$60$126)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(99
(loop$65$129)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(54
(r$197)
((loop$65$129
k$188
0
#f))
#f))
(set! loop$65$129
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(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)
"<srfi-hash-table>"
(size hash compare associate entries))
#(189
#[procedure]
#[procedure]
#[procedure]
#(()
((1
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
()
()
((7
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (lp$2$7$94) #f))))
((8
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((9
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((11
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((12
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
((%halt .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(22
(k$150 l$10$97)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(20
(l$14$98 a$15$99)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(19
(lp$11$16$100)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (lp$11$16$100) #f))))
((19
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((20
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((22
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((25
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((27
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
((31
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((r$241 .
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(122
(k$240)
((Cyc-version
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
()
()
()
()
((41
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((44
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((46
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (k$182) #f))))
()
((Cyc-version
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((49
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((51
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((52
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((53
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((54
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((56
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((59
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((60
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((61
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((62
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((63
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((64
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((65
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((66
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((67
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((68
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((69
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((70
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((71
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((72
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((73
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((74
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((75
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((77
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((jiffies-per-second
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(53
(k$174 r$42$111 x$43$112)
((call-with-values
k$174
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(52
(k$179)
((vector
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(49
(r$180)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(46
(r$181)
((values k$179 r$180 r$181))
#f))))
#f))
values
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(51
(k$185 x$44$113)
((k$185 x$44$113))
#t))))
#t))
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((87
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
((90
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((91
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((92
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((93
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((94
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((x$51$123
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
((98
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (loop$65$129) #f))))
((99
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
((102
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((104
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((106
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
((108
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((109
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((110
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((111
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((call-with-values
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((113
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
()
()
()
((117
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? (rounded$121) #f))))
()
((119
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((120
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #t))))
((121
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
((122
.
#((record-marker)
#((record-marker)
"<analysis-db-function>"
(simple
unused-params
assigned-to-var
side-effects))
#(#f ? () #f))))
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
()
((Cyc-fast-plus
.
#((record-marker)
#((record-marker)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(41
(k$161)
((hide #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(33
(r$171)
((create-n
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(31
(ll$36$108)
((run-r7rs-benchmark
k$161
"diviter:1000:1000000"
1000000
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(27
(k$170)
((iterative-div2
k$170
ll$36$108))
#t))
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(11
(k$139 n$1$91)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(9
(n$5$92 a$6$93)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(8
(lp$2$7$94)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
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)
"<lambda-ast>"
(id args body has-cont))
#(120
(k$188 name$47$116
count$48$117
thunk$49$118
ok?$50$119)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(119
(rounded$121)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(113
(r$189)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(112
(r$190)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(111
(r$191)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(110
(r$192)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(109
(r$233)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(108
(r$193)
((jiffies-per-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(106
(j/s$54$124)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(104
(t0$57$125)
((current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(102
(j0$60$126)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(99
(loop$65$129)
((#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(54
(r$197)
((loop$65$129
k$188
0
#f))
#f))
(set! loop$65$129
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args
body
has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(96
(r$203)
((if r$203
(current-jiffy
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(87
(j1$76$132)
((current-second
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(85
(t1$79$133)
((rounded$121
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(77
(secs2$88$136)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(75
(r$210)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(74
(r$211)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(73
(r$212)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(72
(r$213)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(71
(r$214)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(70
(r$215)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(69
(r$216)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(68
(r$217)
((this-scheme-implementation-name
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(67
(r$225)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(66
(r$218)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(65
(r$219)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(64
(r$220)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(63
(r$221)
((display
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(62
(r$222)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(61
(r$223)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(60
(r$224)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<lambda-ast>"
(id args body has-cont))
#(94
(r$228)
((write #((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(93
(r$229)
((newline
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args body has-cont))
#(92
(r$230)
((current-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(id args
body
has-cont))
#(91
(r$232)
((flush-output-port
#((record-marker)
#((record-marker)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<lambda-ast>"
(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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-variable>"
(global
defined-by
defines-lambda-id
const
const-value
ref-count
ref-by
reassigned
assigned-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)
"<analysis-db-function>"
(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_arg, object a_7318_73102_arg) {
object l_7317_73101 , a_7318_73102;
l_7317_73101 = l_7317_73101_arg;
a_7318_73102 = a_7318_73102_arg;
loop: {
if( (boolean_f != Cyc_is_null(l_7317_73101)) ){
return_closcall1(data, k_73154, a_7318_73102);
} else {
pair_type *c_73374 = alloca(sizeof(pair_type));
set_pair(c_73374,Cyc_car(data, l_7317_73101), a_7318_73102);
l_7317_73101 = Cyc_cddr(data, l_7317_73101);
a_7318_73102 = c_73374;
//return_closcall3(data, car(((closureN)self_73251)->elements[0]), k_73154, Cyc_cddr(data, l_7317_73101), c_73374);}
goto loop;
;
}}}
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_arg, object a_739_7396_arg) {
object n_738_7395, a_739_7396;
n_738_7395 = n_738_7395_arg;
a_739_7396 = a_739_7396_arg;
loop: {
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 = alloca(sizeof(complex_num_type));
object c_73337 = Cyc_fast_sub(data,local_73336,n_738_7395, obj_int2obj(1));
pair_type *c_73340 = alloca(sizeof(pair_type));
// TODO: check if stack is full!
set_pair(c_73340, NULL, a_739_7396);
//return_closcall3(data, car(((closureN)self_73246)->elements[0]), k_73143, c_73337, c_73340);
n_738_7395 = c_73337;
a_739_7396 = c_73340;
goto loop;
}
;
}}
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;}