From fc45a93ebdcda5b6d74047539cd536891a45d280 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 1 Jul 2017 19:36:51 -0400 Subject: [PATCH] WIP --- tests/debug/mbrot-csc-opt.txt | 367 + tests/debug/mbrot-cyc.txt | 33228 ++++++++++++++++++++++++++++++++ 2 files changed, 33595 insertions(+) create mode 100644 tests/debug/mbrot-csc-opt.txt create mode 100644 tests/debug/mbrot-cyc.txt diff --git a/tests/debug/mbrot-csc-opt.txt b/tests/debug/mbrot-csc-opt.txt new file mode 100644 index 00000000..b96b004c --- /dev/null +++ b/tests/debug/mbrot-csc-opt.txt @@ -0,0 +1,367 @@ +[optimized] +(lambda (k389) + (let ((k390 (##core#lambda + (r391) + (let ((k393 (##core#lambda + (r394) + (let ((k396 (##core#lambda + (r397) + (let ((k399 (##core#lambda + (r400) + (let ((k402 (##core#lambda + (r403) + (let ((t405 (set! flush-output-port #f flush-output))) + (let ((t406 (set! current-jiffy #f current-milliseconds))) + (let ((t407 (set! jiffies-per-second + #f + (lambda (k409) (k409 1000))))) + (let ((t410 (set! current-second #f current-seconds))) + (let ((t411 (set! inexact #f exact->inexact))) + (let ((t412 (set! exact #f inexact->exact))) + (let ((t413 (set! square + #f + (lambda (k415 x61) + (k415 (##core#inline_allocate + ("C_a_i_times" 4) + x61 + x61)))))) + (let ((t419 (set! exact-integer? #f integer?))) + (let ((t420 (set! this-scheme-implementation-name + #f + (lambda (k422) + (let ((k427 (##core#lambda + (r428) + (string-append k422 "chicken-" r428)))) + (chicken-version k427)))))) + (let ((t430 (set! count + #f + (lambda (k432 r66 i67 step68 x69 y70) + (let ((k505 (##core#lambda + (r506) + (let ((r502 (##core#inline_allocate + ("C_a_i_times" 4) + r506 + step68))) + (let ((r434 (##core#inline_allocate + ("C_a_i_plus" 4) + r66 + r502))) + (let ((cr73 r434)) + (let ((k497 (##core#lambda + (r498) + (let ((r494 (##core#inline_allocate + ("C_a_i_times" 4) + r498 + step68))) + (let ((r437 (##core#inline_allocate + ("C_a_i_plus" 4) + i67 + r494))) + (let ((ci74 r437)) + (let ((loop75 (##core#undefined))) + (let ((t442 (set! loop75 + #f + (lambda (k444 zr76 zi77 c78) + (if (##core#inline "C_i_nequalp" c78 64) + (k444 c78) + (let ((r452 (##core#inline_allocate + ("C_a_i_times" 4) + zr76 + zr76))) + (let ((r455 (##core#inline_allocate + ("C_a_i_times" 4) + zi77 + zi77))) + (let ((r490 (##core#inline_allocate + ("C_a_i_plus" 4) + r452 + r455))) + (if (##core#inline "C_i_greaterp" r490 16.0) + (k444 c78) + (let ((r486 (##core#inline_allocate + ("C_a_i_minus" 4) + r452 + r455))) + (let ((r464 (##core#inline_allocate + ("C_a_i_plus" 4) + r486 + cr73))) + (let ((r482 (##core#inline_allocate + ("C_a_i_times" 4) + zr76 + zi77))) + (let ((r478 (##core#inline_allocate + ("C_a_i_times" 4) + 2.0 + r482))) + (let ((r467 (##core#inline_allocate + ("C_a_i_plus" 4) + r478 + ci74))) + (let ((r474 (##core#inline_allocate ("C_a_i_plus" 4) c78 1))) + (loop75 k444 r464 r467 r474)))))))))))))))) + (loop75 k432 cr73 ci74 0))))))))) + (inexact k497 y70)))))))) + (inexact k505 x69)))))) + (let ((t508 (set! mbrot + #f + (lambda (k510 matrix85 r86 i87 step88 n89) + (let ((r516 (##core#inline_allocate ("C_a_i_minus" 4) n89 1))) + (let ((loop190 (##core#undefined))) + (let ((t518 (set! loop190 + #f + (lambda (k520 y91) + (if (##core#inline "C_i_greater_or_equalp" y91 0) + (let ((r532 (##core#inline_allocate ("C_a_i_minus" 4) n89 1))) + (let ((loop292 (##core#undefined))) + (let ((t534 (set! loop292 + #f + (lambda (k536 x93) + (if (##core#inline "C_i_greater_or_equalp" x93 0) + (let ((r555 (##core#inline "C_i_vector_ref" matrix85 x93))) + (let ((a553 r555)) + (let ((k558 (##core#lambda + (r559) + (let ((r544 (##core#inline "C_i_vector_set" a553 y91 r559))) + (let ((r551 (##core#inline_allocate ("C_a_i_minus" 4) x93 1))) + (loop292 k536 r551)))))) + (count k558 r86 i87 step88 x93 y91)))) + (let ((r566 (##core#inline_allocate ("C_a_i_minus" 4) y91 1))) + (loop190 k536 r566))))))) + (loop292 k520 r532)))) + (k520 (##core#undefined))))))) + (loop190 k510 r516)))))))) + (let ((t568 (set! test + #f + (lambda (k570 n98) + (let ((k571 (##core#lambda + (r572) + (let ((matrix99 r572)) + (let ((k574 (##core#lambda + (r575) + (let ((k577 (##core#lambda + (r578) + (let ((r585 (##core#inline "C_i_vector_ref" matrix99 0))) + (k570 (##core#inline "C_i_vector_ref" r585 0)))))) + (mbrot k577 matrix99 -1.0 -0.5 0.005 n98))))) + (let ((r589 (##core#inline_allocate ("C_a_i_minus" 4) n98 1))) + (let ((loop100 (##core#undefined))) + (let ((t591 (set! loop100 + #f + (lambda (k593 i101) + (if (##core#inline "C_i_greater_or_equalp" i101 0) + (let ((k611 (##core#lambda + (r612) + (let ((r601 (##core#inline + "C_i_vector_set" + matrix99 + i101 + r612))) + (let ((r608 (##core#inline_allocate ("C_a_i_minus" 4) i101 1))) + (loop100 k593 r608)))))) + (make-vector k611 n98)) + (k593 (##core#undefined))))))) + (loop100 k574 r589))))))))) + (make-vector k571 n98)))))) + (let ((t614 (set! main + #f + (lambda (k616) + (let ((k617 (##core#lambda + (r618) + (let ((count107 r618)) + (let ((k620 (##core#lambda + (r621) + (let ((input1108 r621)) + (let ((k623 (##core#lambda + (r624) + (let ((output109 r624)) + (let ((k626 (##core#lambda + (r627) + (let ((s2110 r627)) + (let ((k629 (##core#lambda + (r630) + (let ((k636 (##core#lambda + (r637) + (let ((a639 (lambda (k641) + (let ((k646 (##core#lambda (r647) (test k641 r647)))) + (hide k646 count107 input1108))))) + (let ((a649 (lambda (k651 result113) + (k651 (##core#inline "C_i_nequalp" result113 output109))))) + (run-r7rs-benchmark k616 r637 count107 a639 a649)))))) + (string-append k636 "mbrot" ":" r630 ":" s2110))))) + (number->string k629 input1108)))))) + (number->string k626 count107)))))) + (read k623)))))) + (read k620)))))) + (read k617)))))) + (let ((t655 (set! hide + #f + (lambda (k657 r115 x116) + (let ((a661 (lambda (k663) + (let ((a678 (lambda (k680 x117) (k680 x117)))) + (let ((r669 (##core#inline_allocate + ("C_a_i_vector2" 3) + values + a678))) + (let ((r676 (##core#inline "C_i_lessp" r115 100))) + (let ((r673 (##core#cond r676 0 1))) + ((##core#proc "C_values" #t) k663 r669 r673)))))))) + (let ((a681 (lambda (k683 v118 i119) + (let ((r685 (##core#inline "C_i_vector_ref" v118 i119))) + (r685 k683 x116))))) + ((##core#proc "C_call_with_values" #t) + k657 + a661 + a681))))))) + (let ((t690 (set! run-r7rs-benchmark + #f + (lambda (k692 name123 count124 thunk125 ok?126) + (let ((k707 (##core#lambda + (r708) + (let ((k710 (##core#lambda + (r711) + (let ((k713 (##core#lambda + (r714) + (let ((k716 (##core#lambda + (r717) + (let ((k719 (##core#lambda + (r720) + (let ((j/s129 r720)) + (let ((k722 (##core#lambda + (r723) + (let ((t0130 r723)) + (let ((k725 (##core#lambda + (r726) + (let ((j0131 r726)) + (let ((loop132 (##core#undefined))) + (let ((t731 (set! loop132 + #f + (lambda (k733 i133 result134) + (if (##core#inline "C_i_lessp" i133 count124) + (let ((r745 (##core#inline_allocate ("C_a_i_plus" 4) i133 1))) + (let ((a743 r745)) + (let ((k748 (##core#lambda (r749) (loop132 k733 a743 r749)))) + (thunk125 k748)))) + (let ((k754 (##core#lambda + (r755) + (if r755 + (let ((k757 (##core#lambda + (r758) + (let ((j1139 r758)) + (let ((k760 (##core#lambda + (r761) + (let ((t1140 r761)) + (let ((r764 (##core#inline_allocate + ("C_a_i_minus" 4) + j1139 + j0131))) + (let ((k766 (##core#lambda + (r767) + (let ((secs142 r767)) + (let ((k769 (##core#lambda + (r770) + (let ((secs2143 r770)) + (let ((k772 (##core#lambda + (r773) + (let ((k775 (##core#lambda + (r776) + (let ((k778 (##core#lambda + (r779) + (let ((k781 (##core#lambda + (r782) + (let ((k784 (##core#lambda + (r785) + (let ((k787 (##core#lambda + (r788) + (let ((k790 (##core#lambda + (r791) + (let ((k793 (##core#lambda + (r794) + (let ((k796 (##core#lambda + (r797) + (let ((k799 (##core#lambda + (r800) + (let ((k802 (##core#lambda + (r803) + (let ((k805 (##core#lambda + (r806) + (let ((k808 (##core#lambda + (r809) + (let ((k811 (##core#lambda + (r812) + (let ((k814 (##core#lambda (r815) (k733 result134)))) + (let ((r819 ##sys#standard-output)) + (flush-output-port k814 ##sys#standard-output)))))) + (newline k811))))) + (display k808 secs142))))) + (display k805 ","))))) + (display k802 name123))))) + (display k799 ","))))) + (let ((k822 (##core#lambda (r823) (display k796 r823)))) + (this-scheme-implementation-name k822)))))) + (display k793 "+!CSVLINE!+"))))) + (newline k790))))) + (display k787 name123))))) + (display k784 ") for "))))) + (write k781 secs2143))))) + (display k778 " seconds ("))))) + (write k775 secs142))))) + (display k772 "Elapsed time: ")))))) + (let ((r827 (##core#inline_allocate + ("C_a_i_minus" 4) + t1140 + t0130))) + (let ((k695 k769)) + (let ((k700 (##core#lambda + (r701) + (k695 (##core#inline_allocate + ("C_a_i_divide" 4) + r701 + 1000))))) + (let ((r705 (##core#inline_allocate + ("C_a_i_times" 4) + 1000 + r827))) + (round k700 r705)))))))))) + (let ((r831 (##core#inline_allocate + ("C_a_i_divide" 4) + r764 + j/s129))) + (inexact k766 r831)))))))) + (current-second k760)))))) + (current-jiffy k757)) + (let ((k833 (##core#lambda + (r834) + (let ((k836 (##core#lambda + (r837) + (let ((k839 (##core#lambda + (r840) + (let ((k842 (##core#lambda (r843) (k733 result134)))) + (let ((r847 ##sys#standard-output)) + (flush-output-port k842 ##sys#standard-output)))))) + (newline k839))))) + (write k836 result134))))) + (display + k833 + "ERROR: returned incorrect result: ")))))) + (ok?126 k754 result134))))))) + (loop132 k692 0 #f))))))) + (current-jiffy k725)))))) + (current-second k722)))))) + (jiffies-per-second k719))))) + (let ((r851 ##sys#standard-output)) + (flush-output-port k716 ##sys#standard-output)))))) + (newline k713))))) + (display k710 name123))))) + (display k707 "Running ")))))) + (let ((k853 (##core#lambda + (r854) + (let ((k856 (##core#lambda (r857) (k389 (##core#undefined))))) + (let ((k859 (##core#lambda (r860) (r860 k856)))) + (##sys#implicit-exit-handler k859)))))) + (main k853)))))))))))))))))))) + (##sys#require k402 'vector-lib))))) + (##core#callunit "extras" k399))))) + (##core#callunit "chicken_2dsyntax" k396))))) + (##core#callunit "eval" k393))))) + (##core#callunit "library" k390))) diff --git a/tests/debug/mbrot-cyc.txt b/tests/debug/mbrot-cyc.txt new file mode 100644 index 00000000..24688e9d --- /dev/null +++ b/tests/debug/mbrot-cyc.txt @@ -0,0 +1,33228 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** http://justinethier.github.io/cyclone/ + ** + ** (c) 2014-2017 Justin Ethier + ** Version 0.5.4 + ** + **/ + +/* +"---------------- input program:" + */ +/* +((import + (scheme base) + (scheme read) + (scheme write) + (scheme time)) + (define (count r i step x y) + (let ((max-count 64) (radius^2 16.0)) + (let ((cr (+ r (* (inexact x) step))) + (ci (+ i (* (inexact y) step)))) + (let loop ((zr cr) (zi ci) (c 0)) + (if (= c max-count) + c + (let ((zr^2 (* zr zr)) (zi^2 (* zi zi))) + (if (> (+ zr^2 zi^2) radius^2) + c + (let ((new-zr (+ (- zr^2 zi^2) cr)) + (new-zi (+ (* 2.0 (* zr zi)) ci))) + (loop new-zr new-zi (+ c 1)))))))))) + (define (mbrot matrix r i step n) + (let loop1 ((y (- n 1))) + (when (>= y 0) + (let loop2 ((x (- n 1))) + (if (>= x 0) + (begin + (vector-set! + (vector-ref matrix x) + y + (count r i step x y)) + (loop2 (- x 1))) + (loop1 (- y 1))))))) + (define (test n) + (let ((matrix (make-vector n))) + (let loop ((i (- n 1))) + (when (>= i 0) + (vector-set! matrix i (make-vector n)) + (loop (- i 1)))) + (mbrot matrix -1.0 -0.5 0.005 n) + (vector-ref (vector-ref matrix 0) 0))) + (define (main) + (let* ((count (read)) + (input1 (read)) + (output (read)) + (s2 (number->string count)) + (s1 (number->string input1)) + (name "mbrot")) + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () (test (hide count input1))) + (lambda (result) (= 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) + (register-simple-type scheme base) + (make-type-predicate scheme base) + (make-constructor scheme base) + (make-getter scheme base) + (make-setter scheme base) + (slot-set! scheme base) + (type-slot-offset scheme base) + (receive scheme base) + (abs scheme base) + (max scheme base) + (min scheme base) + (modulo scheme base) + (floor-remainder scheme base) + (even? scheme base) + (exact-integer? scheme base) + (exact-integer-sqrt scheme base) + (exact? scheme base) + (inexact? scheme base) + (odd? scheme base) + (complex? scheme base) + (rational? scheme base) + (bignum? scheme base) + (gcd scheme base) + (lcm scheme base) + (quotient scheme base) + (remainder scheme base) + (truncate-quotient scheme base) + (truncate-remainder scheme base) + (truncate/ scheme base) + (floor-quotient scheme base) + (floor-remainder scheme base) + (floor/ scheme base) + (square scheme base) + (expt scheme base) + (call-with-current-continuation scheme base) + (call/cc scheme base) + (call-with-values scheme base) + (dynamic-wind scheme base) + (values scheme base) + (char=? scheme base) + (char? scheme base) + (char<=? scheme base) + (char>=? scheme base) + (string=? scheme base) + (string? scheme base) + (string>=? scheme base) + (foldl scheme base) + (foldr scheme base) + (not scheme base) + (list? scheme base) + (zero? scheme base) + (positive? scheme base) + (negative? scheme base) + (append scheme base) + (list scheme base) + (make-list scheme base) + (list-copy scheme base) + (map scheme base) + (for-each scheme base) + (list-tail scheme base) + (list-ref scheme base) + (list-set! scheme base) + (reverse scheme base) + (boolean=? scheme base) + (symbol=? scheme base) + (Cyc-obj=? scheme base) + (vector scheme base) + (vector-append scheme base) + (vector-copy scheme base) + (vector-copy! scheme base) + (vector-fill! scheme base) + (vector->list scheme base) + (vector->string scheme base) + (vector-map scheme base) + (vector-for-each scheme base) + (make-string scheme base) + (string scheme base) + (string-copy scheme base) + (string-copy! scheme base) + (string-fill! scheme base) + (string->list scheme base) + (string->vector scheme base) + (string-map scheme base) + (string-for-each scheme base) + (make-parameter scheme base) + (current-output-port scheme base) + (current-input-port scheme base) + (current-error-port scheme base) + (call-with-port scheme base) + (error scheme base) + (raise scheme base) + (raise-continuable scheme base) + (with-handler scheme base) + (with-exception-handler scheme base) + (Cyc-add-exception-handler scheme base) + (Cyc-remove-exception-handler scheme base) + (newline scheme base) + (write-char scheme base) + (write-string scheme base) + (flush-output-port scheme base) + (read-line scheme base) + (read-string scheme base) + (input-port? scheme base) + (output-port? scheme base) + (input-port-open? scheme base) + (output-port-open? scheme base) + (get-output-string scheme base) + (open-output-string scheme base) + (open-input-string scheme base) + (get-output-bytevector scheme base) + (open-input-bytevector scheme base) + (open-output-bytevector scheme base) + (features scheme base) + (Cyc-version scheme base) + (any scheme base) + (every scheme base) + (and scheme base) + (or scheme base) + (let scheme base) + (let* scheme base) + (letrec scheme base) + (let*-values scheme base) + (let-values scheme base) + (begin scheme base) + (case scheme base) + (cond scheme base) + (cond-expand scheme base) + (do scheme base) + (when scheme base) + (unless scheme base) + (quasiquote scheme base) + (floor scheme base) + (ceiling scheme base) + (truncate scheme base) + (round scheme base) + (exact scheme base) + (inexact scheme base) + (eof-object scheme base) + (syntax-error scheme base) + (bytevector-copy scheme base) + (bytevector-copy! scheme base) + (utf8->string scheme base) + (string->utf8 scheme base) + (denominator scheme base) + (numerator scheme base) + (parameterize scheme base) + (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 count + (lambda (r i step x y) + ((lambda (max-count radius^2) + ((lambda (cr ci) + ((lambda (zr zi c) + ((lambda (loop) + (set! loop + (lambda (zr zi c) + (if (= c max-count) + c + ((lambda (zr^2 zi^2) + (if (> (+ zr^2 zi^2) radius^2) + c + ((lambda (new-zr new-zi) + (loop new-zr new-zi (+ c 1))) + (+ (- zr^2 zi^2) cr) + (+ (* 2.0 (* zr zi)) ci)))) + (* zr zr) + (* zi zi))))) + (loop zr zi c)) + #f)) + cr + ci + 0)) + (+ r (* (inexact x) step)) + (+ i (* (inexact y) step)))) + 64 + 16.0))) + (define mbrot + (lambda (matrix r i step n) + ((lambda (y) + ((lambda (loop1) + (set! loop1 + (lambda (y) + (if (>= y 0) + ((lambda () + ((lambda (x) + ((lambda (loop2) + (set! loop2 + (lambda (x) + (if (>= x 0) + ((lambda () + (vector-set! + (vector-ref matrix x) + y + (count r i step x y)) + (loop2 (- x 1)))) + (loop1 (- y 1))))) + (loop2 x)) + #f)) + (- n 1)))) + #f))) + (loop1 y)) + #f)) + (- n 1)))) + (define test + (lambda (n) + ((lambda (matrix) + ((lambda (i) + ((lambda (loop) + (set! loop + (lambda (i) + (if (>= i 0) + ((lambda () + (vector-set! matrix i (make-vector n)) + (loop (- i 1)))) + #f))) + (loop i)) + #f)) + (- n 1)) + (mbrot matrix -1.0 -0.5 0.005 n) + (vector-ref (vector-ref matrix 0) 0)) + (make-vector n)))) + (define main + (lambda () + ((lambda (count) + ((lambda (input1) + ((lambda (output) + ((lambda (s2) + ((lambda (s1) + ((lambda (name) + ((lambda () + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () (test (hide count input1))) + (lambda (result) (= result output)))))) + "mbrot")) + (number->string input1))) + (number->string count))) + (read))) + (read))) + (read)))) + (define hide + (lambda (r x) + (call-with-values + (lambda () + (values + (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) ((vector-ref v i) x))))) + (define run-r7rs-benchmark + (lambda (name count thunk ok?) + (define rounded + (lambda (x) (/ (round (* 1000 x)) 1000))) + (display "Running ") + (display name) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s) + ((lambda (t0) + ((lambda (j0) + ((lambda () + ((lambda (i result) + ((lambda (loop) + (set! loop + (lambda (i result) + (if (< i count) + ((lambda () (loop (+ i 1) (thunk)))) + (if (ok? result) + ((lambda () + ((lambda (j1) + ((lambda (t1) + ((lambda (jifs) + ((lambda (secs) + ((lambda (secs2) + ((lambda () + (display "Elapsed time: ") + (write secs) + (display " seconds (") + (write secs2) + (display ") for ") + (display name) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name) + (display ",") + (display secs) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1 t0)))) + (inexact (/ jifs j/s)))) + (- j1 j0))) + (current-second))) + (current-jiffy)) + result)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result) + (newline) + (flush-output-port (current-output-port)) + result)))))) + (loop i result)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second)))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + (main)) + */ +/* +"---------------- after macro expansion cleanup:" + */ +/* +((define count + (lambda (r i step x y) + ((lambda (max-count radius^2) + ((lambda (cr ci) + ((lambda (zr zi c) + ((lambda (loop) + (set! loop + (lambda (zr zi c) + (if (= c max-count) + c + ((lambda (zr^2 zi^2) + (if (> (+ zr^2 zi^2) radius^2) + c + ((lambda (new-zr new-zi) + (loop new-zr new-zi (+ c 1))) + (+ (- zr^2 zi^2) cr) + (+ (* 2.0 (* zr zi)) ci)))) + (* zr zr) + (* zi zi))))) + (loop zr zi c)) + #f)) + cr + ci + 0)) + (+ r (* (inexact x) step)) + (+ i (* (inexact y) step)))) + 64 + 16.0))) + (define mbrot + (lambda (matrix r i step n) + ((lambda (y) + ((lambda (loop1) + (set! loop1 + (lambda (y) + (if (>= y 0) + ((lambda () + ((lambda (x) + ((lambda (loop2) + (set! loop2 + (lambda (x) + (if (>= x 0) + ((lambda () + (vector-set! + (vector-ref matrix x) + y + (count r i step x y)) + (loop2 (- x 1)))) + (loop1 (- y 1))))) + (loop2 x)) + #f)) + (- n 1)))) + #f))) + (loop1 y)) + #f)) + (- n 1)))) + (define test + (lambda (n) + ((lambda (matrix) + ((lambda (i) + ((lambda (loop) + (set! loop + (lambda (i) + (if (>= i 0) + ((lambda () + (vector-set! matrix i (make-vector n)) + (loop (- i 1)))) + #f))) + (loop i)) + #f)) + (- n 1)) + (mbrot matrix -1.0 -0.5 0.005 n) + (vector-ref (vector-ref matrix 0) 0)) + (make-vector n)))) + (define main + (lambda () + ((lambda (count) + ((lambda (input1) + ((lambda (output) + ((lambda (s2) + ((lambda (s1) + ((lambda (name) + ((lambda () + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () (test (hide count input1))) + (lambda (result) (= result output)))))) + "mbrot")) + (number->string input1))) + (number->string count))) + (read))) + (read))) + (read)))) + (define hide + (lambda (r x) + (call-with-values + (lambda () + (values + (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) ((vector-ref v i) x))))) + (define run-r7rs-benchmark + (lambda (name count thunk ok?) + (define rounded + (lambda (x) (/ (round (* 1000 x)) 1000))) + (display "Running ") + (display name) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s) + ((lambda (t0) + ((lambda (j0) + ((lambda () + ((lambda (i result) + ((lambda (loop) + (set! loop + (lambda (i result) + (if (< i count) + ((lambda () (loop (+ i 1) (thunk)))) + (if (ok? result) + ((lambda () + ((lambda (j1) + ((lambda (t1) + ((lambda (jifs) + ((lambda (secs) + ((lambda (secs2) + ((lambda () + (display "Elapsed time: ") + (write secs) + (display " seconds (") + (write secs2) + (display ") for ") + (display name) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name) + (display ",") + (display secs) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1 t0)))) + (inexact (/ jifs j/s)))) + (- j1 j0))) + (current-second))) + (current-jiffy)) + result)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result) + (newline) + (flush-output-port (current-output-port)) + result)))))) + (loop i result)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second)))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + (main)) + */ +/* +"---------------- after processing globals" + */ +/* +((define count + (lambda (r i step x y) + ((lambda (max-count radius^2) + ((lambda (cr ci) + ((lambda (zr zi c) + ((lambda (loop) + (set! loop + (lambda (zr zi c) + (if (= c max-count) + c + ((lambda (zr^2 zi^2) + (if (> (+ zr^2 zi^2) radius^2) + c + ((lambda (new-zr new-zi) + (loop new-zr new-zi (+ c 1))) + (+ (- zr^2 zi^2) cr) + (+ (* 2.0 (* zr zi)) ci)))) + (* zr zr) + (* zi zi))))) + (loop zr zi c)) + #f)) + cr + ci + 0)) + (+ r (* (inexact x) step)) + (+ i (* (inexact y) step)))) + 64 + 16.0))) + (define mbrot + (lambda (matrix r i step n) + ((lambda (y) + ((lambda (loop1) + (set! loop1 + (lambda (y) + (if (>= y 0) + ((lambda () + ((lambda (x) + ((lambda (loop2) + (set! loop2 + (lambda (x) + (if (>= x 0) + ((lambda () + (vector-set! + (vector-ref matrix x) + y + (count r i step x y)) + (loop2 (- x 1)))) + (loop1 (- y 1))))) + (loop2 x)) + #f)) + (- n 1)))) + #f))) + (loop1 y)) + #f)) + (- n 1)))) + (define test + (lambda (n) + ((lambda (matrix) + ((lambda (i) + ((lambda (loop) + (set! loop + (lambda (i) + (if (>= i 0) + ((lambda () + (vector-set! matrix i (make-vector n)) + (loop (- i 1)))) + #f))) + (loop i)) + #f)) + (- n 1)) + (mbrot matrix -1.0 -0.5 0.005 n) + (vector-ref (vector-ref matrix 0) 0)) + (make-vector n)))) + (define main + (lambda () + ((lambda (count) + ((lambda (input1) + ((lambda (output) + ((lambda (s2) + ((lambda (s1) + ((lambda (name) + ((lambda () + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () (test (hide count input1))) + (lambda (result) (= result output)))))) + "mbrot")) + (number->string input1))) + (number->string count))) + (read))) + (read))) + (read)))) + (define hide + (lambda (r x) + (call-with-values + (lambda () + (values + (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) ((vector-ref v i) x))))) + (define run-r7rs-benchmark + (lambda (name count thunk ok?) + (define rounded + (lambda (x) (/ (round (* 1000 x)) 1000))) + (display "Running ") + (display name) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s) + ((lambda (t0) + ((lambda (j0) + ((lambda () + ((lambda (i result) + ((lambda (loop) + (set! loop + (lambda (i result) + (if (< i count) + ((lambda () (loop (+ i 1) (thunk)))) + (if (ok? result) + ((lambda () + ((lambda (j1) + ((lambda (t1) + ((lambda (jifs) + ((lambda (secs) + ((lambda (secs2) + ((lambda () + (display "Elapsed time: ") + (write secs) + (display " seconds (") + (write secs2) + (display ") for ") + (display name) + (newline) + (display "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name) + (display ",") + (display secs) + (newline) + (flush-output-port + (current-output-port))))) + (rounded (- t1 t0)))) + (inexact (/ jifs j/s)))) + (- j1 j0))) + (current-second))) + (current-jiffy)) + result)) + ((lambda () + (display "ERROR: returned incorrect result: ") + (write result) + (newline) + (flush-output-port (current-output-port)) + result)))))) + (loop i result)) + #f)) + 0 + #f)))) + (current-jiffy))) + (current-second))) + (jiffies-per-second)))) + (define this-scheme-implementation-name + (lambda () + (string-append "cyclone-" (Cyc-version)))) + ((lambda () 0 (main)))) + */ +/* +"pass thru exports:" + */ +/* +() + */ +/* +"---------------- after alpha conversion:" + */ +/* +((define count + (lambda (r$97 i$96 step$95 x$94 y$93) + ((lambda (max-count$99 radius^2$98) + ((lambda (cr$101 ci$100) + ((lambda (zr$104 zi$103 c$102) + ((lambda (loop$105) + (set! loop$105 + (lambda (zr$108 zi$107 c$106) + (if (Cyc-fast-eq c$106 max-count$99) + c$106 + ((lambda (zr^2$110 zi^2$109) + (if (Cyc-fast-gt + (Cyc-fast-plus zr^2$110 zi^2$109) + radius^2$98) + c$106 + ((lambda (new-zr$112 new-zi$111) + (loop$105 + new-zr$112 + new-zi$111 + (Cyc-fast-plus c$106 1))) + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + ci$100)))) + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107))))) + (loop$105 zr$104 zi$103 c$102)) + #f)) + cr$101 + ci$100 + 0)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact y$93) step$95)))) + 64 + 16.0))) + (define mbrot + (lambda (matrix$86 r$85 i$84 step$83 n$82) + ((lambda (y$87) + ((lambda (loop1$88) + (set! loop1$88 + (lambda (y$89) + (if (Cyc-fast-gte y$89 0) + ((lambda () + ((lambda (x$90) + ((lambda (loop2$91) + (set! loop2$91 + (lambda (x$92) + (if (Cyc-fast-gte x$92 0) + ((lambda () + (vector-set! + (vector-ref matrix$86 x$92) + y$89 + (count r$85 i$84 step$83 x$92 y$89)) + (loop2$91 (Cyc-fast-sub x$92 1)))) + (loop1$88 (Cyc-fast-sub y$89 1))))) + (loop2$91 x$90)) + #f)) + (Cyc-fast-sub n$82 1)))) + #f))) + (loop1$88 y$87)) + #f)) + (Cyc-fast-sub n$82 1)))) + (define test + (lambda (n$77) + ((lambda (matrix$78) + ((lambda (i$79) + ((lambda (loop$80) + (set! loop$80 + (lambda (i$81) + (if (Cyc-fast-gte i$81 0) + ((lambda () + (vector-set! matrix$78 i$81 (make-vector n$77)) + (loop$80 (Cyc-fast-sub i$81 1)))) + #f))) + (loop$80 i$79)) + #f)) + (Cyc-fast-sub n$77 1)) + (mbrot matrix$78 -1.0 -0.5 0.005 n$77) + (vector-ref (vector-ref matrix$78 0) 0)) + (make-vector n$77)))) + (define main + (lambda () + ((lambda (count$70) + ((lambda (input1$71) + ((lambda (output$72) + ((lambda (s2$73) + ((lambda (s1$74) + ((lambda (name$75) + ((lambda () + (run-r7rs-benchmark + (string-append name$75 ":" s1$74 ":" s2$73) + count$70 + (lambda () (test (hide count$70 input1$71))) + (lambda (result$76) + (Cyc-fast-eq result$76 output$72)))))) + "mbrot")) + (number->string input1$71))) + (number->string count$70))) + (read))) + (read))) + (read)))) + (define hide + (lambda (r$66 x$65) + (call-with-values + (lambda () + (values + (vector values (lambda (x$69) x$69)) + (if (Cyc-fast-lt r$66 100) 0 1))) + (lambda (v$68 i$67) + ((vector-ref v$68 i$67) x$65))))) + (define run-r7rs-benchmark + (lambda (name$47 count$46 thunk$45 ok?$44) + ((lambda (rounded$49) + ((lambda (rounded$50) + (set! rounded$49 + (lambda (x$64) + (Cyc-fast-div + (round (Cyc-fast-mul 1000 x$64)) + 1000))) + (display "Running ") + (display name$47) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$51) + ((lambda (t0$52) + ((lambda (j0$53) + ((lambda () + ((lambda (i$55 result$54) + ((lambda (loop$56) + (set! loop$56 + (lambda (i$58 result$57) + (if (Cyc-fast-lt i$58 count$46) + ((lambda () + (loop$56 + (Cyc-fast-plus i$58 1) + (thunk$45)))) + (if (ok?$44 result$57) + ((lambda () + ((lambda (j1$59) + ((lambda (t1$60) + ((lambda (jifs$61) + ((lambda (secs$62) + ((lambda (secs2$63) + ((lambda () + (display + "Elapsed time: ") + (write secs$62) + (display " seconds (") + (write secs2$63) + (display ") for ") + (display name$47) + (newline) + (display + "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47) + (display ",") + (display secs$62) + (newline) + (flush-output-port + (current-output-port))))) + (rounded$49 + (Cyc-fast-sub + t1$60 + t0$52)))) + (inexact + (Cyc-fast-div + jifs$61 + j/s$51)))) + (Cyc-fast-sub j1$59 j0$53))) + (current-second))) + (current-jiffy)) + result$57)) + ((lambda () + (display + "ERROR: returned incorrect result: ") + (write result$57) + (newline) + (flush-output-port + (current-output-port)) + result$57)))))) + (loop$56 i$55 result$54)) + #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 count + (lambda (r$97 i$96 step$95 x$94 y$93) + ((lambda (max-count$99 radius^2$98) + ((lambda (cr$101 ci$100) + ((lambda (zr$104 zi$103 c$102) + ((lambda (loop$105) + (set! loop$105 + (lambda (zr$108 zi$107 c$106) + (if (Cyc-fast-eq c$106 max-count$99) + c$106 + ((lambda (zr^2$110 zi^2$109) + (if (Cyc-fast-gt + (Cyc-fast-plus zr^2$110 zi^2$109) + radius^2$98) + c$106 + ((lambda (new-zr$112 new-zi$111) + (loop$105 + new-zr$112 + new-zi$111 + (Cyc-fast-plus c$106 1))) + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + ci$100)))) + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107))))) + (loop$105 zr$104 zi$103 c$102)) + #f)) + cr$101 + ci$100 + 0)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)))) + 64 + 16.0))) + (define mbrot + (lambda (matrix$86 r$85 i$84 step$83 n$82) + ((lambda (y$87) + ((lambda (loop1$88) + (set! loop1$88 + (lambda (y$89) + (if (Cyc-fast-gte y$89 0) + ((lambda () + ((lambda (x$90) + ((lambda (loop2$91) + (set! loop2$91 + (lambda (x$92) + (if (Cyc-fast-gte x$92 0) + ((lambda () + (vector-set! + (vector-ref matrix$86 x$92) + y$89 + (count r$85 i$84 step$83 x$92 y$89)) + (loop2$91 (Cyc-fast-sub x$92 1)))) + (loop1$88 (Cyc-fast-sub y$89 1))))) + (loop2$91 x$90)) + #f)) + (Cyc-fast-sub n$82 1)))) + #f))) + (loop1$88 y$87)) + #f)) + (Cyc-fast-sub n$82 1)))) + (define test + (lambda (n$77) + ((lambda (matrix$78) + ((lambda (i$79) + ((lambda (loop$80) + (set! loop$80 + (lambda (i$81) + (if (Cyc-fast-gte i$81 0) + ((lambda () + (vector-set! matrix$78 i$81 (make-vector n$77)) + (loop$80 (Cyc-fast-sub i$81 1)))) + #f))) + (loop$80 i$79)) + #f)) + (Cyc-fast-sub n$77 1)) + (mbrot matrix$78 -1.0 -0.5 0.005 n$77) + (vector-ref (vector-ref matrix$78 0) 0)) + (make-vector n$77)))) + (define main + (lambda () + ((lambda (count$70) + ((lambda (input1$71) + ((lambda (output$72) + ((lambda (s2$73) + ((lambda (s1$74) + ((lambda (name$75) + ((lambda () + (run-r7rs-benchmark + (string-append name$75 ":" s1$74 ":" s2$73) + count$70 + (lambda () (test (hide count$70 input1$71))) + (lambda (result$76) + (Cyc-fast-eq result$76 output$72)))))) + "mbrot")) + (number->string input1$71))) + (number->string count$70))) + (read))) + (read))) + (read)))) + (define hide + (lambda (r$66 x$65) + (call-with-values + (lambda () + (values + (vector values (lambda (x$69) x$69)) + (if (Cyc-fast-lt r$66 100) 0 1))) + (lambda (v$68 i$67) + ((vector-ref v$68 i$67) x$65))))) + (define run-r7rs-benchmark + (lambda (name$47 count$46 thunk$45 ok?$44) + ((lambda (rounded$49) + ((lambda (rounded$50) + (set! rounded$49 + (lambda (x$64) + (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + (display "Running ") + (display name$47) + (newline) + (flush-output-port (current-output-port)) + ((lambda (j/s$51) + ((lambda (t0$52) + ((lambda (j0$53) + ((lambda () + ((lambda (i$55 result$54) + ((lambda (loop$56) + (set! loop$56 + (lambda (i$58 result$57) + (if (Cyc-fast-lt i$58 count$46) + ((lambda () + (loop$56 + (Cyc-fast-plus i$58 1) + (thunk$45)))) + (if (ok?$44 result$57) + ((lambda () + ((lambda (j1$59) + ((lambda (t1$60) + ((lambda (jifs$61) + ((lambda (secs$62) + ((lambda (secs2$63) + ((lambda () + (display + "Elapsed time: ") + (write secs$62) + (display " seconds (") + (write secs2$63) + (display ") for ") + (display name$47) + (newline) + (display + "+!CSVLINE!+") + (display + (this-scheme-implementation-name)) + (display ",") + (display name$47) + (display ",") + (display secs$62) + (newline) + (flush-output-port + (current-output-port))))) + (rounded$49 + (Cyc-fast-sub + t1$60 + t0$52)))) + (inexact__inline__ + (Cyc-fast-div + jifs$61 + j/s$51)))) + (Cyc-fast-sub j1$59 j0$53))) + (current-second))) + (current-jiffy)) + result$57)) + ((lambda () + (display + "ERROR: returned incorrect result: ") + (write result$57) + (newline) + (flush-output-port + (current-output-port)) + result$57)))))) + (loop$56 i$55 result$54)) + #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 count + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(167 + (max-count$99 radius^2$98) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(166 + (r$253) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(165 + (r$252) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(164 + (r$234) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(163 + (r$251) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(162 + (r$250) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(161 + (r$235) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(160 + (cr$101 ci$100) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(159 + (zr$104 + zi$103 + c$102) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(143 + (r$237) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(142 + (r$236) + ((loop$105 + k$233 + zr$104 + zi$103 + c$102)) + #f)) + (set! loop$105 + r$237))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(157 + (k$238 zr$108 + zi$107 + c$106) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(156 + (r$239) + ((if r$239 + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(155 + (r$240) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(154 + (r$241) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(153 + (zr^2$110 + zi^2$109) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(152 + (r$249) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(151 + (r$242) + ((if r$242 + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(150 + (r$248) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(149 + (r$243) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(148 + (r$247) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(147 + (r$246) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(146 + (r$244) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(145 + (new-zr$112 + new-zi$111) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(144 + (r$245) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + r$245)) + #f)) + (Cyc-fast-plus + c$106 + 1))) + #f)) + r$243 + r$244)) + #f)) + (Cyc-fast-plus + r$246 + ci$100))) + #f)) + (Cyc-fast-mul + 2.0 + r$247))) + #f)) + (Cyc-fast-mul + zr$108 + zi$107))) + #f)) + (Cyc-fast-plus + r$248 + cr$101))) + #f)) + (Cyc-fast-sub + zr^2$110 + zi^2$109)))) + #f)) + (Cyc-fast-gt + r$249 + radius^2$98))) + #f)) + (Cyc-fast-plus + zr^2$110 + zi^2$109))) + #f)) + r$240 + r$241)) + #f)) + (Cyc-fast-mul + zi$107 + zi$107))) + #f)) + (Cyc-fast-mul + zr$108 + zr$108)))) + #f)) + (Cyc-fast-eq + c$106 + max-count$99))) + #t)))) + #f)) + #f)) + #f)) + cr$101 + ci$100 + 0)) + #f)) + r$234 + r$235)) + #f)) + (Cyc-fast-plus i$96 r$250))) + #f)) + (Cyc-fast-mul r$251 step$95))) + #f)) + (inexact__inline__ y$93))) + #f)) + (Cyc-fast-plus r$97 r$252))) + #f)) + (Cyc-fast-mul r$253 step$95))) + #f)) + (inexact__inline__ x$94))) + #f)) + 64 + 16.0)) + #t))) + (define mbrot + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(140 + (r$216) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(139 + (y$87) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(121 + (r$218) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 (r$217) ((loop1$88 k$215 y$87)) #f)) + (set! loop1$88 r$218))) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(135 + () + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(134 + (r$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(133 + (x$90) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(123 + (r$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + x$90)) + #f)) + (set! loop2$91 + r$223))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(128 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(129 + (r$230) + ((loop1$88 + k$224 + r$230)) + #f)) + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte + x$92 + 0))) + #t)))) + #f)) + #f)) + #f)) + r$221)) + #f)) + (Cyc-fast-sub n$82 1))) + #f))) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t)))) + #f)) + #f)) + #f)) + r$216)) + #f)) + (Cyc-fast-sub n$82 1))) + #t))) + (define test + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(118 + (r$201) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(116 + (r$205) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(107 + (r$207) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(104 + (r$203) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(103 + (r$204) + ((k$200 (vector-ref + r$204 + 0))) + #f)) + (vector-ref + matrix$78 + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 r$207))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(113 + (k$208 i$81) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(112 + (r$209) + ((if r$209 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(111 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(109 + (r$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(108 + (r$211) + ((loop$80 + k$208 + r$211)) + #f)) + (Cyc-fast-sub + i$81 + 1))) + #f)) + (vector-set! + matrix$78 + i$81 + r$212))) + #f)) + (make-vector n$77))) + #f))) + (k$208 #f))) + #f)) + (Cyc-fast-gte i$81 0))) + #t)))) + #f)) + #f)) + #f)) + r$205)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + r$201)) + #f)) + (make-vector n$77))) + #t))) + (define main + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(101 + (r$187) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(99 + (r$188) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(97 + (r$189) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(95 + (r$190) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(93 + (r$191) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(91 + (name$75) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(90 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(86 + (r$193) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(84 + (r$194) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + r$193 + r$194)) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)))) + #f)) + (string-append + name$75 + ":" + s1$74 + ":" + s2$73))) + #f)))) + #f)) + "mbrot")) + #f)) + r$191)) + #f)) + (number->string + input1$71))) + #f)) + r$190)) + #f)) + (number->string + count$70))) + #f)) + r$189)) + #f)))) + #f)) + r$188)) + #f)))) + #f)) + r$187)) + #f)))) + #t))) + (define hide + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(75 + (r$173) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(72 + (r$174) + ((call-with-values k$172 r$173 r$174)) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(73 (r$176) ((r$176 k$175 x$65)) #f)) + (vector-ref v$68 i$67))) + #t)))) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(80 + (r$182) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(78 + (k$180) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(77 + (r$181) + ((if r$181 (k$180 0) (k$180 1))) + #f)) + (Cyc-fast-lt r$66 100))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)))) + #f)) + values + r$182)) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)))) + #t))) + (define run-r7rs-benchmark + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(69 + (rounded$50) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(65 + (r$166) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(58 + (r$126) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(56 + (r$127) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(54 + (r$128) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(52 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(51 + (i$55 result$54) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(6 + (r$130) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + i$55 + result$54)) + #f)) + (set! loop$56 + r$130))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(48 + (r$132) + ((if r$132 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(9 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(8 + (r$133) + ((thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + r$133 + r$134)) + #f)))) + #f)) + (Cyc-fast-plus + i$58 + 1))) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(40 + () + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(39 + (r$137) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(37 + (r$138) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(35 + (r$139) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(34 + (jifs$61) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(33 + (r$159) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(32 + (r$140) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(31 + (secs$62) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(30 + (r$158) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(29 + (r$141) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(27 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + secs$62)) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + secs$62)) + #f)) + "Elapsed time: ")) + #f)))) + #f)) + r$141)) + #f)) + r$158)) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)) + r$140)) + #f)) + (inexact__inline__ + r$159))) + #f)) + (Cyc-fast-div + jifs$61 + j/s$51))) + #f)) + r$139)) + #f)) + (Cyc-fast-sub + j1$59 + j0$53))) + #f)) + r$138)) + #f)))) + #f)) + r$137)) + #f)))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(46 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: ")) + #f))))) + #f)) + result$57))) + #f)) + (Cyc-fast-lt + i$58 + count$46))) + #t)))) + #f)) + #f)) + #f)) + 0 + #f)) + #f)))) + #f)) + r$128)) + #f)))) + #f)) + r$127)) + #f)))) + #f)) + r$126)) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 r$166))) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(67 + (r$169) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(66 + (r$168) + ((k$167 (Cyc-fast-div r$168 1000))) + #f)) + (round__inline__ r$169))) + #f)) + (Cyc-fast-mul 1000 x$64))) + #t)))) + #f)) + #f)) + #f)) + #f)) + #t))) + (define this-scheme-implementation-name + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(2 + () + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(1 (r$113) ((main %halt)) #f)) + 0)) + #f)))) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + #f + (size hash compare associate entries)) + #(399 + #[procedure] + #[procedure] + #[procedure] + #(((r$146 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$147 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (1 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$148 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (2 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$149 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (3 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((4 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((count$46 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f))) + (5 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((matrix$78 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 117 + #f + #f + #f + 3 + (110 105 104) + #f + r$201 + 0 + 3 + #f + #f + #f))) + (6 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((7 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((8 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((9 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((10 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((11 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((12 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (max-count$99 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 167 #f #t 64 1 (157) #f 64 0 1 #t #f #f)))) + ((13 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((14 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((15 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((16 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((17 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((s1$74 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 92 #f #f #f 1 (90) #f r$191 0 1 #t #f #f))) + (18 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((19 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((20 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((rounded$49 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 70 #f #f #f 2 (65 30) #f r$166 1 0 #f #f #f))) + (21 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((22 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((23 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((24 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((25 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((26 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((27 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((28 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((29 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f))) + (Cyc-fast-eq + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f)))) + ((30 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$150 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (read . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f))) + (31 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$151 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (32 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((r$152 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (r$66 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f))) + (k$195 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t))) + (33 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$153 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$196 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t))) + (34 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$154 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (35 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((r$155 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (36 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$156 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f))) + (37 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((r$157 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (40 55) #f #f 2 0 #f #f #f))) + (38 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$158 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 30 + #f + #f + #f + 1 + (30) + #f + (Cyc-fast-sub t1$60 t0$52) + 0 + 1 + #t + #f + #f))) + (39 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #f)))) + ((r$159 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 33 + #f + #f + #f + 1 + (33) + #f + (Cyc-fast-div jifs$61 j/s$51) + 0 + 1 + #t + #f + #f))) + (k$200 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 119 #f #f #f 1 (103) #f #f 1 0 #t #f #t))) + (40 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((loop$80 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 114 + #f + #f + #f + 3 + (108 107 106) + #f + r$207 + 2 + 0 + #f + #f + #f))) + (41 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (cr$101 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 160 + #f + #f + #f + 2 + (160 150) + #f + r$234 + 0 + 2 + #t + #f + #f))) + (Cyc-fast-mul + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 7 + (68 166 163 156 155 149 148) + #f + #f + 7 + 0 + #t + #f + #f))) + (matrix$86 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (128) #f #f 0 1 #t #t #f)))) + ((42 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((43 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((44 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((45 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((46 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((47 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$208 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 113 #f #f #f 2 (112 108) #f #f 1 1 #f #f #t))) + (48 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((rounded$50 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 69 #f #t #f 0 () #f #f 0 0 #t #f #f))) + (49 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$130 loop$56 r$130) #f)))) + ((50 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((51 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((52 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((53 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (radius^2$98 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 167 #f #t 16.0 1 (152) #f 16.0 0 1 #t #f #f))) + (Cyc-fast-sub + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 9 + (36 31 117 109 141 135 130 125 151) + #f + #f + 9 + 0 + #t + #f + #f)))) + ((54 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((55 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((56 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((57 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((58 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((59 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((60 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((61 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((62 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((63 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((64 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((65 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((66 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((67 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$160 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (68 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$166 rounded$49 r$166) #f)))) + ((r$161 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (69 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$162 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (70 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$163 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (make-vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (119 111) #f #f 2 0 #t #f #f))) + (71 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$164 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))) + (72 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$165 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))) + (73 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$166 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 65 + #f + #f + #f + 1 + (65) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(67 + (r$169) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(66 + (r$168) + ((k$167 (Cyc-fast-div r$168 1000))) + #f)) + (round__inline__ r$169))) + #f)) + (Cyc-fast-mul 1000 x$64))) + #t)) + 0 + 0 + #t + #f + #f))) + (74 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$174) #f)))) + ((75 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$168 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 66 + #f + #f + #f + 1 + (66) + #f + (round__inline__ r$169) + 0 + 1 + #t + #f + #f))) + (76 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$180) #f)))) + ((r$169 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 67 + #f + #f + #f + 1 + (67) + #f + (Cyc-fast-mul 1000 x$64) + 0 + 1 + #t + #f + #f))) + (77 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((78 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((79 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((jifs$61 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 34 #f #f #f 1 (34) #f r$139 0 1 #t #f #f))) + (80 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((81 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$182) #f)))) + ((82 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$173) #f))) + (k$215 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t)))) + ((83 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((84 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((85 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$194) #f)))) + ((Cyc-fast-div + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (66 34) #f #f 2 0 #t #f #f))) + (86 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (k$219 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t)))) + ((87 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((88 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$193) #t)))) + ((89 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((90 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((91 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((92 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((93 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((94 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((95 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((96 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((97 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((98 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((99 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((100 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((Cyc-version + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f))) + (101 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((102 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((103 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((104 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((105 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((106 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (Cyc-fast-gt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (152) #f #f 1 0 #t #f #f))) + (r$85 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + ((107 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$173 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 75 + #f + #f + #f + 1 + (72) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(80 + (r$182) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(78 + (k$180) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(77 + (r$181) + ((if r$181 (k$180 0) (k$180 1))) + #f)) + (Cyc-fast-lt r$66 100))) + #t)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(76 + (r$179) + ((values k$177 r$178 r$179)) + #f)))) + #f)) + values + r$182)) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + 0 + 1 + #f + #f + #f))) + (108 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$174 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 72 + #f + #f + #f + 1 + (72) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(73 (r$176) ((r$176 k$175 x$65)) #f)) + (vector-ref v$68 i$67))) + #t)) + 0 + 1 + #t + #f + #f))) + (109 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((count$70 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 100 + #f + #f + #f + 3 + (96 88 84) + #f + r$187 + 0 + 3 + #f + #f + #f))) + (110 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$176 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 73 + #f + #f + #f + 1 + (73) + #f + (vector-ref v$68 i$67) + 1 + 0 + #t + #f + #f))) + (111 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((112 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((thunk$45 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (8) #f #f 1 0 #f #f #f))) + (r$178 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))) + (113 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$207 loop$80 r$207) #t)))) + ((r$179 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))) + (114 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((115 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((116 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((current-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f))) + (117 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((k$224 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 131 #f #f #f 2 (129 124) #f #f 0 2 #f #f #t))) + (118 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((119 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((121 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((122 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((123 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((124 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((125 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((126 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((127 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((128 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((129 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((130 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((131 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$223 loop2$91 r$223) #t))) + (test . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 119 + #f + #f + 2 + (87 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(118 + (r$201) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(116 + (r$205) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(107 + (r$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(104 + (r$203) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(103 + (r$204) + ((k$200 (vector-ref + r$204 + 0))) + #f)) + (vector-ref + matrix$78 + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + r$207))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(113 + (k$208 i$81) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(112 + (r$209) + ((if r$209 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(111 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(109 + (r$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(108 + (r$211) + ((loop$80 + k$208 + r$211)) + #f)) + (Cyc-fast-sub + i$81 + 1))) + #f)) + (vector-set! + matrix$78 + i$81 + r$212))) + #f)) + (make-vector + n$77))) + #f))) + (k$208 #f))) + #f)) + (Cyc-fast-gte + i$81 + 0))) + #t)))) + #f)) + #f)) + #f)) + r$205)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + r$201)) + #f)) + (make-vector n$77))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((132 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((133 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((134 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((135 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((136 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((137 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$218 loop1$88 r$218) #t)))) + ((138 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((139 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((140 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#t ? () #t)))) + ((141 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((142 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$181 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 77 + #f + #f + #f + 1 + (77) + #f + (Cyc-fast-lt r$66 100) + 0 + 0 + #t + #f + #f))) + (143 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$182 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 80 + #f + #f + #f + 1 + (80) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)) + 0 + 1 + #t + #f + #f))) + (144 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((145 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (r$97 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (165) #f #f 0 1 #t #f #f)))) + ((146 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((147 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((secs2$63 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 28 #f #f #f 1 (24) #f r$141 0 1 #f #f #f))) + (148 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((newline + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (44 13 21 62) + #f + #f + 4 + 0 + #f + #f + #f))) + (r$187 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 101 #f #f #f 1 (101) #f #f 0 1 #t #f #f))) + (149 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$188 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 99 #f #f #f 1 (99) #f #f 0 1 #t #f #f))) + (150 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$189 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 97 #f #f #f 1 (97) #f #f 0 1 #t #f #f))) + (151 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((152 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((153 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$233 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (142) #f #f 0 1 #f #f #t))) + (154 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((155 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((main . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 102 + #f + #f + 2 + (1 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(101 + (r$187) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(99 + (r$188) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(97 + (r$189) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(95 + (r$190) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(93 + (r$191) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(91 + (name$75) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(90 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(86 + (r$193) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(84 + (r$194) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + r$193 + r$194)) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)))) + #f)) + (string-append + name$75 + ":" + s1$74 + ":" + s2$73))) + #f)))) + #f)) + "mbrot")) + #f)) + r$191)) + #f)) + (number->string + input1$71))) + #f)) + r$190)) + #f)) + (number->string + count$70))) + #f)) + r$189)) + #f)))) + #f)) + r$188)) + #f)))) + #f)) + r$187)) + #f)))) + #t))) + 1 + 0 + #f + #f + #f))) + (156 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((157 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (r$237 loop$105 r$237) #f)))) + ((158 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((159 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (k$238 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (144 151 156) + #f + #f + 2 + 1 + #f + #f + #t)))) + ((160 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((161 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((162 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((163 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((164 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((165 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((166 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((167 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((168 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + () + () + () + () + ((r$190 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 95 + #f + #f + #f + 1 + (95) + #f + (number->string count$70) + 0 + 1 + #t + #f + #f)))) + ((r$191 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 93 + #f + #f + #f + 1 + (93) + #f + (number->string input1$71) + 0 + 1 + #t + #f + #f)))) + ((r$192 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 89 + #f + #f + #f + 1 + (84) + #f + (string-append name$75 ":" s1$74 ":" s2$73) + 0 + 1 + #f + #f + #f)))) + ((r$193 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 86 + #f + #f + #f + 1 + (84) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(87 (r$197) ((test k$196 r$197)) #f)) + count$70 + input1$71)) + #t)) + 0 + 1 + #f + #f + #f))) + (zr^2$110 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 153 + #f + #f + #f + 2 + (153 151) + #f + r$240 + 0 + 2 + #t + #f + #f)))) + ((r$194 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 84 + #f + #f + #f + 1 + (84) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq result$76 output$72))) + #t)) + 0 + 1 + #t + #f + #f)))) + ((current-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f)))) + () + ((r$197 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))) + (loop2$91 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 132 + #f + #f + #f + 3 + (124 123 122) + #f + r$223 + 2 + 0 + #f + #f + #f)))) + () + () + () + () + ((loop1$88 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 138 + #f + #f + #f + 3 + (129 121 120) + #f + r$218 + 2 + 0 + #f + #f + #f)))) + ((r$201 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 118 + #f + #f + #f + 1 + (118) + #f + (make-vector n$77) + 0 + 1 + #t + #t + #f)))) + ((r$202 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$203 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$204 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 103 + #f + #f + #f + 1 + (103) + #f + (vector-ref matrix$78 0) + 0 + 1 + #t + #f + #f)))) + ((r$205 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 116 + #f + #f + #f + 1 + (116) + #f + (Cyc-fast-sub n$77 1) + 0 + 1 + #t + #f + #f)))) + ((r$206 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 106 + #f + #f + #f + 0 + () + #f + (set! loop$80 r$207) + 0 + 0 + #t + #f + #f)))) + ((r$207 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 107 + #f + #f + #f + 1 + (107) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(112 + (r$209) + ((if r$209 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(111 + () + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(108 + (r$211) + ((loop$80 k$208 r$211)) + #f)) + (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77))) + #f))) + (k$208 #f))) + #f)) + (Cyc-fast-gte i$81 0))) + #t)) + 0 + 0 + #t + #f + #f)))) + () + ((r$209 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 112 + #f + #f + #f + 1 + (112) + #f + (Cyc-fast-gte i$81 0) + 0 + 0 + #t + #f + #f)))) + () + () + ((vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (80) #f #f 1 0 #f #f #f)))) + () + () + () + () + ((step$83 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + () + () + ((n$77 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 119 + #f + #f + #f + 4 + (119 117 111 105) + #f + #f + 0 + 4 + #f + #f + #f)))) + () + () + () + () + () + ((new-zi$111 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 145 #f #f #f 1 (144) #f r$244 0 1 #f #f #f)))) + ((t1$60 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 36 #f #f #f 1 (31) #f r$138 0 1 #t #f #f))) + (t0$52 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 55 #f #f #f 1 (31) #f r$127 0 1 #t #f #f)))) + () + () + () + ((zi$103 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 159 #f #f #f 1 (142) #f ci$100 0 1 #f #f #f)))) + () + ((loop$105 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 158 + #f + #f + #f + 3 + (144 143 142) + #f + r$237 + 2 + 0 + #f + #f + #f)))) + () + ((zi$107 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (155 155 149) + #f + #f + 0 + 3 + #t + #f + #f)))) + ((number->string + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f)))) + ((r$210 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 109 + #f + #f + #f + 0 + () + #f + (vector-set! matrix$78 i$81 r$212) + 0 + 0 + #t + #f + #f)))) + ((r$211 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 108 + #f + #f + #f + 1 + (108) + #f + (Cyc-fast-sub i$81 1) + 0 + 1 + #t + #f + #f)))) + ((r$212 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 110 + #f + #f + #f + 1 + (110) + #f + (make-vector n$77) + 0 + 1 + #t + #f + #f)))) + ((call-with-values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (72) #f #f 1 0 #f #f #f)))) + ((this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 4 + #f + #f + 2 + (-1 19) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + ((r$216 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 140 + #f + #f + #f + 1 + (140) + #f + (Cyc-fast-sub n$82 1) + 0 + 1 + #t + #f + #f)))) + ((string-append + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (3 90) #f #f 2 0 #t #f #f))) + (r$217 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 120 + #f + #f + #f + 0 + () + #f + (set! loop1$88 r$218) + 0 + 0 + #t + #f + #f)))) + ((r$218 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 121 + #f + #f + #f + 1 + (121) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(135 + () + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(134 + (r$221) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(133 + (x$90) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(123 + (r$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + x$90)) + #f)) + (set! loop2$91 + r$223))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(128 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(129 + (r$230) + ((loop1$88 + k$224 + r$230)) + #f)) + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte + x$92 + 0))) + #t)))) + #f)) + #f)) + #f)) + r$221)) + #f)) + (Cyc-fast-sub n$82 1))) + #f))) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t)) + 0 + 0 + #t + #f + #f)))) + () + () + () + () + () + ((write . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))) + (ok?$44 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (48) #f #f 1 0 #f #f #f)))) + ((vector-set! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f))) + (n$82 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 2 (141 135) #f #f 0 2 #t #f #f)))) + () + () + () + ((step$95 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (166 163) #f #f 0 2 #t #f #f)))) + () + () + ((k$116 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t)))) + ((result$54 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 51 #f #t #f 1 (5) #f #f 0 1 #f #f #f)))) + () + () + ((result$57 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 49 + #f + #f + #f + 4 + (48 45 41 10) + #f + #f + 0 + 4 + #f + #f + #f)))) + () + () + () + () + () + () + () + () + () + ((zi^2$109 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 153 + #f + #f + #f + 2 + (153 151) + #f + r$241 + 0 + 2 + #t + #f + #f)))) + ((r$220 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 136 + #f + #f + #f + 1 + (136) + #f + (Cyc-fast-gte y$89 0) + 0 + 0 + #t + #f + #f)))) + ((r$221 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 134 + #f + #f + #f + 1 + (134) + #f + (Cyc-fast-sub n$82 1) + 0 + 1 + #t + #f + #f)))) + ((r$222 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 122 + #f + #f + #f + 0 + () + #f + (set! loop2$91 r$223) + 0 + 0 + #t + #f + #f)))) + ((r$223 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 123 + #f + #f + #f + 1 + (123) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(128 + () + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92))) + #f))) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(129 (r$230) ((loop1$88 k$224 r$230)) #f)) + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t)) + 0 + 0 + #t + #f + #f)))) + () + ((r$225 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 130 + #f + #f + #f + 1 + (130) + #f + (Cyc-fast-gte x$92 0) + 0 + 0 + #t + #f + #f)))) + ((r$226 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 125 + #f + #f + #f + 0 + () + #f + (vector-set! r$228 y$89 r$229) + 0 + 0 + #t + #f + #f)))) + ((r$227 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 124 + #f + #f + #f + 1 + (124) + #f + (Cyc-fast-sub x$92 1) + 0 + 1 + #t + #f + #f)))) + ((r$228 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 127 + #f + #f + #f + 1 + (126) + #f + (vector-ref matrix$86 x$92) + 0 + 1 + #f + #f + #f)))) + ((r$229 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f)))) + () + () + () + () + () + () + ((k$120 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (5) #f #f 0 1 #f #f #t)))) + () + () + () + () + () + () + () + () + () + ((Cyc-fast-lt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f)))) + () + () + () + () + () + () + () + () + () + () + ((r$230 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 129 + #f + #f + #f + 1 + (129) + #f + (Cyc-fast-sub y$89 1) + 0 + 1 + #t + #f + #f)))) + ((mbrot . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 141 + #f + #f + 2 + (105 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(140 + (r$216) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(139 + (y$87) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(121 + (r$218) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 y$87)) + #f)) + (set! loop1$88 r$218))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(135 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(134 + (r$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(133 + (x$90) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(123 + (r$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + x$90)) + #f)) + (set! loop2$91 + r$223))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(128 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(129 + (r$230) + ((loop1$88 + k$224 + r$230)) + #f)) + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte + x$92 + 0))) + #t)))) + #f)) + #f)) + #f)) + r$221)) + #f)) + (Cyc-fast-sub + n$82 + 1))) + #f))) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t)))) + #f)) + #f)) + #f)) + r$216)) + #f)) + (Cyc-fast-sub n$82 1))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + () + ((r$234 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 164 + #f + #f + #f + 1 + (161) + #f + (Cyc-fast-plus r$97 r$252) + 0 + 1 + #f + #f + #f)))) + ((r$235 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 161 + #f + #f + #f + 1 + (161) + #f + (Cyc-fast-plus i$96 r$250) + 0 + 1 + #t + #f + #f)))) + ((r$236 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 142 + #f + #f + #f + 0 + () + #f + (set! loop$105 r$237) + 0 + 0 + #t + #f + #f)))) + ((r$237 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 143 + #f + #f + #f + 1 + (143) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(156 + (r$239) + ((if r$239 + (k$238 c$106) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(155 + (r$240) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(154 + (r$241) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(153 + (zr^2$110 zi^2$109) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(152 + (r$249) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(151 + (r$242) + ((if r$242 + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(150 + (r$248) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(149 + (r$243) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(148 + (r$247) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(147 + (r$246) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(146 + (r$244) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(145 + (new-zr$112 + new-zi$111) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(144 + (r$245) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + r$245)) + #f)) + (Cyc-fast-plus + c$106 + 1))) + #f)) + r$243 + r$244)) + #f)) + (Cyc-fast-plus + r$246 + ci$100))) + #f)) + (Cyc-fast-mul + 2.0 + r$247))) + #f)) + (Cyc-fast-mul + zr$108 + zi$107))) + #f)) + (Cyc-fast-plus + r$248 + cr$101))) + #f)) + (Cyc-fast-sub + zr^2$110 + zi^2$109)))) + #f)) + (Cyc-fast-gt + r$249 + radius^2$98))) + #f)) + (Cyc-fast-plus + zr^2$110 + zi^2$109))) + #f)) + r$240 + r$241)) + #f)) + (Cyc-fast-mul zi$107 zi$107))) + #f)) + (Cyc-fast-mul zr$108 zr$108)))) + #f)) + (Cyc-fast-eq c$106 max-count$99))) + #t)) + 0 + 0 + #t + #f + #f)))) + ((i$55 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 51 #f #t 0 1 (5) #f 0 0 1 #f #f #f)))) + ((r$239 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 156 + #f + #f + #f + 1 + (156) + #f + (Cyc-fast-eq c$106 max-count$99) + 0 + 0 + #t + #f + #f)))) + () + ((i$58 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 2 (49 9) #f #f 0 2 #t #f #f)))) + () + () + () + ((%halt . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f)))) + () + ((name$47 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f))) + (k$131 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #f #f #t)))) + () + () + () + () + () + () + () + ((result$76 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))) + () + ((c$102 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 159 #f #t 0 1 (142) #f 0 0 1 #f #f #f)))) + () + () + () + ((x$64 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))) + (c$106 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 4 + (157 145 151 156) + #f + #f + 0 + 4 + #t + #f + #f))) + (Cyc-fast-plus + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 7 + (9 165 162 153 150 147 145) + #f + #f + 7 + 0 + #t + #f + #f)))) + ((x$65 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (73) #f #f 0 1 #f #f #f)))) + () + () + ((hide . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 83 + #f + #f + 2 + (-1 88) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(75 + (r$173) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(72 + (r$174) + ((call-with-values k$172 r$173 r$174)) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(73 (r$176) ((r$176 k$175 x$65)) #f)) + (vector-ref v$68 i$67))) + #t)))) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(80 + (r$182) + ((vector + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(78 + (k$180) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(77 + (r$181) + ((if r$181 + (k$180 0) + (k$180 1))) + #f)) + (Cyc-fast-lt r$66 100))) + #t)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(76 + (r$179) + ((values k$177 r$178 r$179)) + #f)))) + #f)) + values + r$182)) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((x$69 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f)))) + ((j/s$51 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 57 #f #f #f 1 (34) #f r$126 0 1 #t #f #f))) + (r$240 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 155 + #f + #f + #f + 1 + (154) + #f + (Cyc-fast-mul zr$108 zr$108) + 0 + 1 + #f + #f + #f))) + (new-zr$112 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 145 #f #f #f 1 (144) #f r$243 0 1 #f #f #f)))) + ((j1$59 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 38 #f #f #f 1 (36) #f r$137 0 1 #t #f #f))) + (r$241 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 154 + #f + #f + #f + 1 + (154) + #f + (Cyc-fast-mul zi$107 zi$107) + 0 + 1 + #t + #f + #f)))) + ((r$242 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 151 + #f + #f + #f + 1 + (151) + #f + (Cyc-fast-gt r$249 radius^2$98) + 0 + 0 + #t + #f + #f)))) + ((r$243 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 149 + #f + #f + #f + 1 + (146) + #f + (Cyc-fast-plus r$248 cr$101) + 0 + 1 + #f + #f + #f)))) + ((r$244 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 146 + #f + #f + #f + 1 + (146) + #f + (Cyc-fast-plus r$246 ci$100) + 0 + 1 + #t + #f + #f)))) + ((zr$104 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 159 #f #f #f 1 (142) #f cr$101 0 1 #f #f #f))) + (r$245 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 144 + #f + #f + #f + 1 + (144) + #f + (Cyc-fast-plus c$106 1) + 0 + 1 + #t + #f + #f)))) + ((r$246 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 147 + #f + #f + #f + 1 + (147) + #f + (Cyc-fast-mul 2.0 r$247) + 0 + 1 + #t + #f + #f)))) + ((r$247 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 148 + #f + #f + #f + 1 + (148) + #f + (Cyc-fast-mul zr$108 zi$107) + 0 + 1 + #t + #f + #f)))) + ((r$248 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 150 + #f + #f + #f + 1 + (150) + #f + (Cyc-fast-sub zr^2$110 zi^2$109) + 0 + 1 + #t + #f + #f)))) + ((zr$108 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (156 156 149) + #f + #f + 0 + 3 + #t + #f + #f))) + (r$249 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 152 + #f + #f + #f + 1 + (152) + #f + (Cyc-fast-plus zr^2$110 zi^2$109) + 0 + 1 + #t + #f + #f)))) + ((i$67 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + () + () + () + () + () + () + () + () + () + () + () + ((flush-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f)))) + () + () + () + ((run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 71 + #f + #f + 2 + (-1 84) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(69 + (rounded$50) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(65 + (r$166) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(58 + (r$126) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(56 + (r$127) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(54 + (r$128) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(52 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(51 + (i$55 result$54) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(6 + (r$130) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + i$55 + result$54)) + #f)) + (set! loop$56 + r$130))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(48 + (r$132) + ((if r$132 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(9 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(8 + (r$133) + ((thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + r$133 + r$134)) + #f)))) + #f)) + (Cyc-fast-plus + i$58 + 1))) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(40 + () + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(39 + (r$137) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(37 + (r$138) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(35 + (r$139) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(34 + (jifs$61) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(33 + (r$159) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(32 + (r$140) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(31 + (secs$62) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(30 + (r$158) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(29 + (r$141) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(27 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + secs$62)) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + secs$62)) + #f)) + "Elapsed time: ")) + #f)))) + #f)) + r$141)) + #f)) + r$158)) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)) + r$140)) + #f)) + (inexact__inline__ + r$159))) + #f)) + (Cyc-fast-div + jifs$61 + j/s$51))) + #f)) + r$139)) + #f)) + (Cyc-fast-sub + j1$59 + j0$53))) + #f)) + r$138)) + #f)))) + #f)) + r$137)) + #f)))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(46 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: ")) + #f))))) + #f)) + result$57))) + #f)) + (Cyc-fast-lt + i$58 + count$46))) + #t)))) + #f)) + #f)) + #f)) + 0 + #f)) + #f)))) + #f)) + r$128)) + #f)))) + #f)) + r$127)) + #f)))) + #f)) + r$126)) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 r$166))) + #f)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(67 + (r$169) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(66 + (r$168) + ((k$167 (Cyc-fast-div + r$168 + 1000))) + #f)) + (round__inline__ r$169))) + #f)) + (Cyc-fast-mul 1000 x$64))) + #t)))) + #f)) + #f)) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f)))) + () + () + ((display + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 13 + (46 14 15 16 17 18 20 22 23 25 27 63 64) + #f + #f + 13 + 0 + #f + #f + #f)))) + ((j0$53 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 53 #f #f #f 1 (36) #f r$128 0 1 #t #f #f)))) + () + () + () + () + () + ((y$87 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 139 #f #f #f 1 (120) #f r$216 0 1 #f #f #f)))) + ((r$250 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 162 + #f + #f + #f + 1 + (162) + #f + (Cyc-fast-mul r$251 step$95) + 0 + 1 + #t + #f + #f)))) + ((r$251 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 163 + #f + #f + #f + 1 + (163) + #f + (inexact__inline__ y$93) + 0 + 1 + #t + #f + #f))) + (y$89 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 137 + #f + #f + #f + 4 + (137 130 127 126) + #f + #f + 0 + 4 + #f + #f + #f)))) + ((r$252 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 165 + #f + #f + #f + 1 + (165) + #f + (Cyc-fast-mul r$253 step$95) + 0 + 1 + #t + #f + #f)))) + ((r$253 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 166 + #f + #f + #f + 1 + (166) + #f + (inexact__inline__ x$94) + 0 + 1 + #t + #f + #f)))) + () + () + () + () + () + () + () + () + ((i$79 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 115 #f #f #f 1 (106) #f r$205 0 1 #f #f #f)))) + () + () + () + () + () + () + () + () + () + ((r$113 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 1 #f #t 0 0 () #f 0 0 0 #t #f #f)))) + () + () + () + ((r$117 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f))) + (round__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (67) #f #f 1 0 #t #f #f)))) + () + () + () + () + ((v$68 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + ((y$93 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (164) #f #f 0 1 #t #f #f)))) + ((input1$71 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 98 #f #f #f 2 (94 88) #f r$188 0 2 #t #f #f)))) + () + () + () + () + () + () + () + ((i$81 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 113 + #f + #f + #f + 3 + (113 110 109) + #f + #f + 0 + 3 + #t + #f + #f)))) + () + () + ((i$84 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + () + () + () + () + () + () + () + ((name$75 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 91 #f #f #f 1 (90) #f "mbrot" 0 1 #t #f #f)))) + () + () + ((ci$100 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 160 + #f + #f + #f + 2 + (160 147) + #f + r$235 + 0 + 2 + #t + #f + #f)))) + () + ((r$121 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + (set! rounded$49 r$166) + 0 + 0 + #t + #f + #f)))) + ((r$122 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$123 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$124 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (80 76) #f #f 1 1 #f #f #f))) + (k$167 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (66) #f #f 1 0 #t #f #t)))) + ((r$125 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$126 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 58 #f #f #f 1 (58) #f #f 0 1 #t #f #f)))) + ((r$127 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 56 #f #f #f 1 (56) #f #f 0 1 #t #f #f)))) + ((r$128 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 54 #f #f #f 1 (54) #f #f 0 1 #t #f #f))) + (x$90 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 133 #f #f #f 1 (122) #f r$221 0 1 #f #f #f)))) + ((secs$62 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 31 #f #f #f 2 (26 14) #f r$140 0 2 #f #f #f))) + (r$129 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 5 + #f + #f + #f + 0 + () + #f + (set! loop$56 r$130) + 0 + 0 + #t + #f + #f)))) + ((x$92 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 131 + #f + #f + #f + 4 + (131 128 127 125) + #f + #f + 0 + 4 + #f + #t + #f)))) + ((output$72 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 96 #f #f #f 1 (85) #f r$189 0 1 #t #f #f)))) + ((x$94 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (167) #f #f 0 1 #t #f #f)))) + () + () + () + ((loop$56 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 50 #f #f #f 3 (7 6 5) #f r$130 2 0 #f #f #f)))) + () + () + () + () + () + () + () + () + () + () + ((i$96 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (162) #f #f 0 1 #t #f #f)))) + () + () + () + () + () + ((inexact__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (33 167 164) #f #f 3 0 #t #f #f)))) + () + () + ((k$172 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (72) #f #f 0 1 #f #f #t)))) + ((r$130 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 6 + #f + #f + #f + 1 + (6) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(49 + (k$131 i$58 result$57) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(48 + (r$132) + ((if r$132 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(9 + () + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(8 + (r$133) + ((thunk$45 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(7 + (r$134) + ((loop$56 k$131 r$133 r$134)) + #f)))) + #f)) + (Cyc-fast-plus i$58 1))) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(47 + (r$135) + ((if r$135 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(40 + () + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(39 + (r$137) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(37 + (r$138) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(35 + (r$139) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(34 + (jifs$61) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(33 + (r$159) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(32 + (r$140) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(31 + (secs$62) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(30 + (r$158) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(29 + (r$141) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(27 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + secs$62)) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + secs$62)) + #f)) + "Elapsed time: ")) + #f)))) + #f)) + r$141)) + #f)) + r$158)) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)) + r$140)) + #f)) + (inexact__inline__ + r$159))) + #f)) + (Cyc-fast-div + jifs$61 + j/s$51))) + #f)) + r$139)) + #f)) + (Cyc-fast-sub + j1$59 + j0$53))) + #f)) + r$138)) + #f)))) + #f)) + r$137)) + #f)))) + #f))) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(46 + () + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: ")) + #f))))) + #f)) + result$57))) + #f)) + (Cyc-fast-lt i$58 count$46))) + #t)) + 0 + 0 + #t + #f + #f)))) + () + ((r$132 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 48 + #f + #f + #f + 1 + (48) + #f + (Cyc-fast-lt i$58 count$46) + 0 + 0 + #t + #f + #f))) + (k$175 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (73) #f #f 0 1 #f #f #t)))) + ((r$133 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 8 + #f + #f + #f + 1 + (7) + #f + (Cyc-fast-plus i$58 1) + 0 + 1 + #f + #f + #f)))) + ((r$134 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f))) + (k$177 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t)))) + ((r$135 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))) + ((r$136 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$137 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 39 #f #f #f 1 (39) #f #f 0 1 #t #f #f)))) + ((r$138 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 37 #f #f #f 1 (37) #f #f 0 1 #t #f #f)))) + ((r$139 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 35 + #f + #f + #f + 1 + (35) + #f + (Cyc-fast-sub j1$59 j0$53) + 0 + 1 + #t + #f + #f)))) + () + ((jiffies-per-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f)))) + () + () + () + ((count . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 168 + #f + #f + 2 + (127 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(167 + (max-count$99 radius^2$98) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(166 + (r$253) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(165 + (r$252) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(164 + (r$234) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(163 + (r$251) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(162 + (r$250) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(161 + (r$235) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(160 + (cr$101 + ci$100) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(159 + (zr$104 + zi$103 + c$102) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(143 + (r$237) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(142 + (r$236) + ((loop$105 + k$233 + zr$104 + zi$103 + c$102)) + #f)) + (set! loop$105 + r$237))) + #f)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(157 + (k$238 zr$108 + zi$107 + c$106) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(156 + (r$239) + ((if r$239 + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(155 + (r$240) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(154 + (r$241) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(153 + (zr^2$110 + zi^2$109) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(152 + (r$249) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(151 + (r$242) + ((if r$242 + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(150 + (r$248) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(149 + (r$243) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(148 + (r$247) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(147 + (r$246) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(146 + (r$244) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(145 + (new-zr$112 + new-zi$111) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(144 + (r$245) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + r$245)) + #f)) + (Cyc-fast-plus + c$106 + 1))) + #f)) + r$243 + r$244)) + #f)) + (Cyc-fast-plus + r$246 + ci$100))) + #f)) + (Cyc-fast-mul + 2.0 + r$247))) + #f)) + (Cyc-fast-mul + zr$108 + zi$107))) + #f)) + (Cyc-fast-plus + r$248 + cr$101))) + #f)) + (Cyc-fast-sub + zr^2$110 + zi^2$109)))) + #f)) + (Cyc-fast-gt + r$249 + radius^2$98))) + #f)) + (Cyc-fast-plus + zr^2$110 + zi^2$109))) + #f)) + r$240 + r$241)) + #f)) + (Cyc-fast-mul + zi$107 + zi$107))) + #f)) + (Cyc-fast-mul + zr$108 + zr$108)))) + #f)) + (Cyc-fast-eq + c$106 + max-count$99))) + #t)))) + #f)) + #f)) + #f)) + cr$101 + ci$100 + 0)) + #f)) + r$234 + r$235)) + #f)) + (Cyc-fast-plus + i$96 + r$250))) + #f)) + (Cyc-fast-mul + r$251 + step$95))) + #f)) + (inexact__inline__ y$93))) + #f)) + (Cyc-fast-plus r$97 r$252))) + #f)) + (Cyc-fast-mul r$253 step$95))) + #f)) + (inexact__inline__ x$94))) + #f)) + 64 + 16.0)) + #t))) + 1 + 0 + #f + #f + #f)))) + () + () + ((Cyc-fast-gte + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 3 + (113 137 131) + #f + #f + 3 + 0 + #t + #f + #f)))) + () + () + () + () + () + () + ((s2$73 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 94 #f #f #f 1 (90) #f r$190 0 1 #t #f #f)))) + () + () + () + () + () + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (74 104 103 128) + #f + #f + 4 + 0 + #t + #f + #f))) + (k$180 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 78 + #f + #f + #f + 2 + (77 77) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)) + 2 + 0 + #t + #f + #t)))) + () + () + ((r$140 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 32 + #f + #f + #f + 1 + (32) + #f + (inexact__inline__ r$159) + 0 + 1 + #t + #f + #f))) + (k$183 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t)))) + ((r$141 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 29 #f #f #f 1 (29) #f #f 0 1 #t #f #f)))) + ((r$142 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$143 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$186 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 102 #f #f #f 1 (84) #f #f 0 1 #f #f #t)))) + ((r$144 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$145 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f))))))) + */ +/* +"---------------- after cps optimizations (1):" + */ +/* +((define count + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(160 + (cr$101 ci$100) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(159 + (zr$104 zi$103) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(142 + (r$236) + ((loop$105 k$233 zr$104 zi$103 0)) + #f)) + (set! loop$105 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(153 + (zr^2$110 zi^2$109) + ((if (Cyc-fast-gt + (Cyc-fast-plus + zr^2$110 + zi^2$109) + 16.0) + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(145 + (new-zr$112 new-zi$111) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + (Cyc-fast-plus c$106 1))) + #f)) + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul + 2.0 + (Cyc-fast-mul zr$108 zi$107)) + ci$100)))) + #f)) + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)))) + #t))))) + #f)) + #f)) + #f)) + cr$101 + ci$100)) + #f)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)))) + #t))) + (define mbrot + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))))) + #f)) + #f)) + #t))) + (define test + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(104 + (r$203) + ((k$200 (vector-ref + (vector-ref + matrix$78 + 0) + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((loop$80 + k$208 + (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + (make-vector n$77))) + #t))) + (define main + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + #f)) + (number->string input1$71))) + #f)) + (number->string count$70))) + #f)))) + #f)))) + #f)))) + #t))) + (define hide + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((call-with-values + k$172 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(78 + (k$180) + ((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)))) + #f)) + values + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + (((vector-ref v$68 i$67) k$175 x$65)) + #t)))) + #t))) + (define run-r7rs-benchmark + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + 0 + #f)) + #f)) + (set! loop$56 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + (define this-scheme-implementation-name + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + (main %halt)) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + #f + (size hash compare associate entries)) + #(255 + #[procedure] + #[procedure] + #[procedure] + #(((r$146 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$147 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$148 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$149 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (3 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((4 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((count$46 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f))) + (5 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((matrix$78 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 117 + #f + #f + #f + 3 + (110 105 104) + #f + (make-vector n$77) + 0 + 3 + #f + #f + #f)))) + ((7 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((zi^2$109 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 153 + #f + #f + #f + 2 + (153 153) + #f + (Cyc-fast-mul zi$107 zi$107) + 0 + 2 + #t + #f + #f)))) + ((r$220 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 136 + #f + #f + #f + 1 + (136) + #f + (Cyc-fast-gte y$89 0) + 0 + 0 + #t + #f + #f)))) + ((10 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$222 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 122 + #f + #f + #f + 0 + () + #f + (set! loop2$91 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 k$224 (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))) + 0 + 0 + #t + #f + #f))) + (11 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((12 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((13 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$225 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 130 + #f + #f + #f + 1 + (130) + #f + (Cyc-fast-gte x$92 0) + 0 + 0 + #t + #f + #f))) + (14 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$226 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 125 + #f + #f + #f + 0 + () + #f + (vector-set! r$228 y$89 r$229) + 0 + 0 + #t + #f + #f))) + (15 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$227 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 124 + #f + #f + #f + 1 + (124) + #f + (Cyc-fast-sub x$92 1) + 0 + 1 + #t + #f + #f))) + (16 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$228 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 127 + #f + #f + #f + 1 + (126) + #f + (vector-ref matrix$86 x$92) + 0 + 1 + #f + #f + #f))) + (17 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((s1$74 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 92 + #f + #f + #f + 1 + (92) + #f + (number->string input1$71) + 0 + 1 + #t + #f + #f))) + (r$229 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f))) + (18 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((19 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((20 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((rounded$49 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 70 + #f + #f + #f + 2 + (70 36) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t)) + 1 + 0 + #t + #f + #f))) + (21 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((22 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((23 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((24 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$120 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t))) + (25 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((26 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((28 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((Cyc-fast-eq + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f)))) + () + ((r$150 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (read . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f)))) + ((r$151 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$152 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (r$66 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f))) + (k$195 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t)))) + ((r$153 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$196 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))) + ((r$154 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (Cyc-fast-lt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f)))) + ((r$155 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (36 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$156 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))) + ((r$157 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f))) + (38 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((k$200 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 119 #f #f #f 1 (104) #f #f 1 0 #t #f #t)))) + ((loop$80 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 114 + #f + #f + #f + 3 + (109 114 106) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(109 + (r$210) + ((loop$80 k$208 (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t)) + 2 + 0 + #f + #f + #f))) + (matrix$86 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (130) #f #f 0 1 #t #t #f))) + (Cyc-fast-mul + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 7 + (68 168 168 157 157 153 153) + #f + #f + 7 + 0 + #t + #f + #f))) + (41 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (cr$101 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 160 + #f + #f + #f + 2 + (160 153) + #f + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + 0 + 2 + #t + #f + #f)))) + ((42 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((43 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((44 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((45 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((mbrot . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 141 + #f + #f + 2 + (105 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub + n$82 + 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte + x$92 + 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f))) + (47 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$208 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 113 #f #f #f 2 (113 109) #f #f 1 1 #t #f #t)))) + ((49 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$56) #f)))) + ((50 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((r$236 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 142 + #f + #f + #f + 0 + () + #f + (set! loop$105 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(153 + (zr^2$110 zi^2$109) + ((if (Cyc-fast-gt + (Cyc-fast-plus zr^2$110 zi^2$109) + 16.0) + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(145 + (new-zr$112 new-zi$111) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + (Cyc-fast-plus c$106 1))) + #f)) + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul + 2.0 + (Cyc-fast-mul zr$108 zi$107)) + ci$100)))) + #f)) + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((Cyc-fast-sub + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 10 + (36 26 14 117 109 130 125 122 120 153) + #f + #f + 10 + 0 + #t + #f + #f))) + (53 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((55 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((i$58 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f))) + (57 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((59 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((60 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((%halt . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f))) + (61 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((62 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((name$47 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f))) + (63 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (k$131 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t)))) + ((64 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((r$160 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (68 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (rounded$49) #f)))) + ((r$161 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$162 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (70 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$163 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (result$76 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))) + (make-vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (119 113) #f #f 2 0 #t #f #f))) + (71 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$164 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f)))) + ((r$165 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f)))) + ((74 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((76 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$180) #f)))) + ((x$64 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))) + (Cyc-fast-plus + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 7 + (7 168 168 153 153 145 153) + #f + #f + 7 + 0 + #t + #f + #f))) + (c$106 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 4 + (145 153 157 157) + #f + #f + 0 + 4 + #t + #f + #f)))) + ((x$65 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f))) + (78 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((79 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((81 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (hide . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 83 + #f + #f + 2 + (-1 88) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((call-with-values + k$172 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(78 + (k$180) + ((if (Cyc-fast-lt r$66 100) + (k$180 0) + (k$180 1))) + #t)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(76 + (r$179) + ((values k$177 r$178 r$179)) + #f)))) + #f)) + values + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + (((vector-ref v$68 i$67) k$175 x$65)) + #t)))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((x$69 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))) + (82 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (k$215 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t)))) + ((j/s$51 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))) + (new-zr$112 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 145 + #f + #f + #f + 1 + (145) + #f + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + 0 + 1 + #t + #f + #f))) + (83 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((j1$59 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))) + ((85 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((Cyc-fast-div + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f))) + (k$219 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t)))) + ((87 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((88 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (zr$104 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 159 #f #f #f 1 (142) #f cr$101 0 1 #t #f #f)))) + ((89 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((zr$108 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (157 157 153) + #f + #f + 0 + 3 + #t + #f + #f))) + (92 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((i$67 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + ((94 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((96 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((98 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((100 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((Cyc-version + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))) + ((102 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((104 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((flush-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f))) + (105 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$85 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))) + (Cyc-fast-gt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (153) #f #f 1 0 #t #f #f))) + (106 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((109 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 71 + #f + #f + 2 + (-1 89) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + 0 + #f)) + #f)) + (set! loop$56 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ + (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f)))) + ((count$70 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 100 + #f + #f + #f + 3 + (96 88 89) + #f + #f + 0 + 3 + #f + #f + #f))) + (110 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((display + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 13 + (47 14 15 16 17 18 20 22 23 25 28 63 64) + #f + #f + 13 + 0 + #f + #f + #f)))) + ((j0$53 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))) + (thunk$45 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))) + (r$178 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))) + (113 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$80) #t)))) + ((r$179 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))) + (114 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((115 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((current-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f))) + (117 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((k$224 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 131 #f #f #f 2 (130 124) #f #f 0 2 #f #f #t)))) + ((119 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((y$89 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 137 + #f + #f + #f + 4 + (137 130 127 126) + #f + #f + 0 + 4 + #f + #f + #f)))) + ((122 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((124 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((125 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((126 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((127 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((130 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((test . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 119 + #f + #f + 2 + (87 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(104 + (r$203) + ((k$200 (vector-ref + (vector-ref + matrix$78 + 0) + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(109 + (r$210) + ((loop$80 + k$208 + (Cyc-fast-sub + i$81 + 1))) + #f)) + (vector-set! + matrix$78 + i$81 + r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + (make-vector n$77))) + #t))) + 1 + 0 + #f + #f + #f))) + (131 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop2$91) #t)))) + ((i$79 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 115 + #f + #f + #f + 1 + (106) + #f + (Cyc-fast-sub n$77 1) + 0 + 1 + #f + #f + #f))) + (132 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((136 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((137 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop1$88) #t)))) + ((138 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((141 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((142 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((145 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (r$97 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f)))) + ((r$117 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f))) + (round__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f)))) + () + ((secs2$63 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f)))) + ((newline + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (44 13 21 62) + #f + #f + 4 + 0 + #f + #f + #f)))) + () + ((v$68 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + ((y$93 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f)))) + ((input1$71 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 98 #f #f #f 2 (94 88) #f #f 0 2 #t #f #f))) + (153 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$233 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (142) #f #f 0 1 #t #f #t)))) + () + ((main . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 102 + #f + #f + 2 + (-1 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + #f)) + (number->string + input1$71))) + #f)) + (number->string + count$70))) + #f)))) + #f)))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((157 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$105) #f)))) + ((158 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((k$238 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (145 153 157) + #f + #f + 2 + 1 + #t + #f + #t))) + (159 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((160 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((i$81 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 113 + #f + #f + #f + 3 + (110 109 113) + #f + #f + 0 + 3 + #t + #f + #f)))) + () + () + ((i$84 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + () + () + () + ((168 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + ((ci$100 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 160 + #f + #f + #f + 2 + (160 153) + #f + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)) + 0 + 2 + #t + #f + #f)))) + () + ((r$121 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((r$122 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$123 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$124 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f))) + (k$167 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t)))) + ((r$125 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (r$192 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 89 + #f + #f + #f + 1 + (89) + #f + (string-append "mbrot" ":" s1$74 ":" s2$73) + 0 + 1 + #t + #f + #f)))) + ((zr^2$110 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 153 + #f + #f + #f + 2 + (153 153) + #f + (Cyc-fast-mul zr$108 zr$108) + 0 + 2 + #t + #f + #f)))) + () + ((current-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f)))) + ((r$129 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 5 + #f + #f + #f + 0 + () + #f + (set! loop$56 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(49 + (k$131 i$58 result$57) + ((if (Cyc-fast-lt i$58 count$46) + (thunk$45 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(7 + (r$134) + ((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub t1$60 t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((r$197 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))) + (x$92 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 131 + #f + #f + #f + 4 + (131 130 127 125) + #f + #f + 0 + 4 + #f + #t + #f))) + (loop2$91 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 132 + #f + #f + #f + 3 + (124 132 122) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(124 + (r$227) + ((loop2$91 k$224 r$227)) + #f)) + (Cyc-fast-sub x$92 1))) + #f)) + (vector-set! r$228 y$89 r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 k$224 (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t)) + 2 + 0 + #f + #f + #f)))) + ((output$72 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 96 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))) + ((x$94 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f)))) + () + () + ((loop1$88 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 138 + #f + #f + #f + 3 + (130 138 120) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 k$219 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t)) + 2 + 0 + #f + #f + #f)))) + ((loop$56 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 50 + #f + #f + #f + 3 + (7 50 5) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(49 + (k$131 i$58 result$57) + ((if (Cyc-fast-lt i$58 count$46) + (thunk$45 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(7 + (r$134) + ((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub t1$60 t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t)) + 2 + 0 + #t + #f + #f)))) + ((r$202 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$203 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + () + () + ((r$206 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 106 + #f + #f + #f + 0 + () + #f + (set! loop$80 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((loop$80 k$208 (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))) + 0 + 0 + #t + #f + #f)))) + () + () + () + () + () + ((vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (82) #f #f 1 0 #f #f #f))) + (i$96 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f)))) + () + () + () + () + ((step$83 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + ((inexact__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (26 14 168 168) + #f + #f + 4 + 0 + #t + #f + #f)))) + () + ((n$77 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 119 + #f + #f + #f + 4 + (119 117 113 105) + #f + #f + 0 + 4 + #f + #t + #f)))) + ((k$172 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t)))) + () + () + ((k$175 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t)))) + () + ((r$134 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f))) + (new-zi$111 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 145 + #f + #f + #f + 1 + (145) + #f + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + ci$100) + 0 + 1 + #t + #f + #f))) + (k$177 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t)))) + ((t1$60 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f))) + (r$135 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f))) + (t0$52 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f)))) + ((r$136 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + () + () + ((zi$103 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 159 #f #f #f 1 (142) #f ci$100 0 1 #t #f #f)))) + () + ((jiffies-per-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))) + (loop$105 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 158 + #f + #f + #f + 3 + (145 158 142) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(153 + (zr^2$110 zi^2$109) + ((if (Cyc-fast-gt + (Cyc-fast-plus zr^2$110 zi^2$109) + 16.0) + (k$238 c$106) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(145 + (new-zr$112 new-zi$111) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + (Cyc-fast-plus c$106 1))) + #f)) + (Cyc-fast-plus + (Cyc-fast-sub zr^2$110 zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + ci$100)))) + #f)) + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)))) + #t)) + 2 + 0 + #t + #f + #f)))) + () + ((zi$107 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (157 157 153) + #f + #f + 0 + 3 + #t + #f + #f)))) + ((number->string + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f)))) + ((r$210 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 109 + #f + #f + #f + 0 + () + #f + (vector-set! matrix$78 i$81 r$212) + 0 + 0 + #t + #f + #f))) + (count . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 168 + #f + #f + 2 + (127 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(160 + (cr$101 ci$100) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(159 + (zr$104 zi$103) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(142 + (r$236) + ((loop$105 + k$233 + zr$104 + zi$103 + 0)) + #f)) + (set! loop$105 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(153 + (zr^2$110 zi^2$109) + ((if (Cyc-fast-gt + (Cyc-fast-plus + zr^2$110 + zi^2$109) + 16.0) + (k$238 c$106) + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(145 + (new-zr$112 + new-zi$111) + ((loop$105 + k$238 + new-zr$112 + new-zi$111 + (Cyc-fast-plus + c$106 + 1))) + #f)) + (Cyc-fast-plus + (Cyc-fast-sub + zr^2$110 + zi^2$109) + cr$101) + (Cyc-fast-plus + (Cyc-fast-mul + 2.0 + (Cyc-fast-mul + zr$108 + zi$107)) + ci$100)))) + #f)) + (Cyc-fast-mul + zr$108 + zr$108) + (Cyc-fast-mul + zi$107 + zi$107)))) + #t))))) + #f)) + #f)) + #f)) + cr$101 + ci$100)) + #f)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + ((r$212 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 110 + #f + #f + #f + 1 + (110) + #f + (make-vector n$77) + 0 + 1 + #t + #f + #f)))) + ((call-with-values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f))) + (Cyc-fast-gte + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 3 + (113 137 131) + #f + #f + 3 + 0 + #t + #f + #f)))) + ((this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 4 + #f + #f + 2 + (-1 19) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + () + ((string-append + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (3 92) #f #f 2 0 #t #f #f))) + (r$217 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 120 + #f + #f + #f + 0 + () + #f + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))) + 0 + 0 + #t + #f + #f)))) + () + () + ((s2$73 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 94 + #f + #f + #f + 1 + (92) + #f + (number->string count$70) + 0 + 1 + #t + #f + #f)))) + () + () + () + ((write . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))) + (ok?$44 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f)))) + ((vector-set! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f))) + (n$82 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 2 (122 120) #f #f 0 2 #t #f #f)))) + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (74 104 104 130) + #f + #f + 4 + 0 + #t + #f + #f))) + (k$180 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 78 + #f + #f + #f + 2 + (78 78) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)) + 2 + 0 + #t + #f + #t))) + (step$95 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (168 168) #f #f 0 2 #t #f #f)))) + () + () + ((k$183 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))) + (k$116 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t)))) + () + ((r$142 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$143 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$186 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 102 #f #f #f 1 (89) #f #f 0 1 #f #f #t)))) + ((r$144 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (result$57 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 49 + #f + #f + #f + 4 + (49 45 41 10) + #f + #f + 0 + 4 + #f + #f + #f)))) + ((r$145 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (-1 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(? ? () #t))))))) + */ +/* +"---------------- after cps optimizations (2):" + */ +/* +((define count + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(159 + (zr$104 zi$103) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(142 + (r$236) + ((loop$105 k$233 zr$104 zi$103 0)) + #f)) + (set! loop$105 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + (k$238 c$106) + (loop$105 + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul + (inexact__inline__ x$94) + step$95))) + (Cyc-fast-plus + (Cyc-fast-mul + 2.0 + (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul + (inexact__inline__ y$93) + step$95))) + (Cyc-fast-plus c$106 1))))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)))) + #t))) + (define mbrot + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))))) + #f)) + #f)) + #t))) + (define test + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(104 + (r$203) + ((k$200 (vector-ref + (vector-ref + matrix$78 + 0) + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((loop$80 + k$208 + (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + (make-vector n$77))) + #t))) + (define main + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + #f)) + (number->string input1$71))) + #f)) + (number->string count$70))) + #f)))) + #f)))) + #f)))) + #t))) + (define hide + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((call-with-values + k$172 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(78 + (k$180) + ((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)))) + #f)) + values + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + (((vector-ref v$68 i$67) k$175 x$65)) + #t)))) + #t))) + (define run-r7rs-benchmark + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + 0 + #f)) + #f)) + (set! loop$56 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + (define this-scheme-implementation-name + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + (main %halt)) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + #f + (size hash compare associate entries)) + #(246 + #[procedure] + #[procedure] + #[procedure] + #(((r$146 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$147 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$148 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$149 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (3 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((4 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((count$46 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f))) + (5 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((matrix$78 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 117 + #f + #f + #f + 3 + (110 105 104) + #f + (make-vector n$77) + 0 + 3 + #f + #f + #f)))) + ((7 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((r$220 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 136 + #f + #f + #f + 1 + (136) + #f + (Cyc-fast-gte y$89 0) + 0 + 0 + #t + #f + #f)))) + ((10 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$222 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 122 + #f + #f + #f + 0 + () + #f + (set! loop2$91 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 k$224 (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))) + 0 + 0 + #t + #f + #f))) + (11 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((12 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((13 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$225 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 130 + #f + #f + #f + 1 + (130) + #f + (Cyc-fast-gte x$92 0) + 0 + 0 + #t + #f + #f))) + (14 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$226 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 125 + #f + #f + #f + 0 + () + #f + (vector-set! r$228 y$89 r$229) + 0 + 0 + #t + #f + #f))) + (15 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$227 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 124 + #f + #f + #f + 1 + (124) + #f + (Cyc-fast-sub x$92 1) + 0 + 1 + #t + #f + #f))) + (16 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$228 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 127 + #f + #f + #f + 1 + (126) + #f + (vector-ref matrix$86 x$92) + 0 + 1 + #f + #f + #f))) + (17 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((s1$74 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 92 + #f + #f + #f + 1 + (92) + #f + (number->string input1$71) + 0 + 1 + #t + #f + #f))) + (r$229 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f))) + (18 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((19 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((20 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((rounded$49 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 70 + #f + #f + #f + 2 + (70 36) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t)) + 1 + 0 + #t + #f + #f))) + (21 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((22 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((23 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((24 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$120 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t))) + (25 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((26 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((28 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((Cyc-fast-eq + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f)))) + () + ((r$150 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (read . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f)))) + ((r$151 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$152 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (r$66 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f))) + (k$195 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t)))) + ((r$153 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$196 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))) + ((r$154 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (Cyc-fast-lt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f)))) + ((r$155 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (36 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((r$156 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))) + ((r$157 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))) + (current-jiffy + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f))) + (38 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((k$200 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 119 #f #f #f 1 (104) #f #f 1 0 #t #f #t)))) + ((loop$80 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 114 + #f + #f + #f + 3 + (109 114 106) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(109 + (r$210) + ((loop$80 k$208 (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t)) + 2 + 0 + #f + #f + #f))) + (matrix$86 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (130) #f #f 0 1 #t #t #f))) + (Cyc-fast-mul + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 11 + (68 168 168 157 157 157 157 157 157 157 157) + #f + #f + 11 + 0 + #t + #f + #f))) + (41 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((42 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((43 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((44 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((45 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((mbrot . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 141 + #f + #f + 2 + (105 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub + n$82 + 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte + x$92 + 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f))) + (47 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((k$208 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 113 #f #f #f 2 (113 109) #f #f 1 1 #t #f #t)))) + ((49 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$56) #f)))) + ((50 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((r$236 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 142 + #f + #f + #f + 0 + () + #f + (set! loop$105 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + (k$238 c$106) + (loop$105 + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul + (inexact__inline__ x$94) + step$95))) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul + (inexact__inline__ y$93) + step$95))) + (Cyc-fast-plus c$106 1))))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((Cyc-fast-sub + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 10 + (36 26 14 117 109 130 125 122 120 157) + #f + #f + 10 + 0 + #t + #f + #f))) + (53 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((55 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((i$58 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f))) + (57 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((59 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((60 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((%halt . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f))) + (61 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((62 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((name$47 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f))) + (63 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (k$131 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t)))) + ((64 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((r$160 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (68 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (rounded$49) #f)))) + ((r$161 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$162 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (70 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$163 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (result$76 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))) + (make-vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (119 113) #f #f 2 0 #t #f #f))) + (71 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$164 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f)))) + ((r$165 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f)))) + ((74 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((76 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (k$180) #f)))) + ((x$64 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))) + (Cyc-fast-plus + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 9 + (7 168 168 157 157 157 157 157 157) + #f + #f + 9 + 0 + #t + #f + #f))) + (c$106 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 4 + (157 157 157 157) + #f + #f + 0 + 4 + #t + #f + #f)))) + ((x$65 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f))) + (78 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((79 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((81 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (hide . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 83 + #f + #f + 2 + (-1 88) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((call-with-values + k$172 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(78 + (k$180) + ((if (Cyc-fast-lt r$66 100) + (k$180 0) + (k$180 1))) + #t)) + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(76 + (r$179) + ((values k$177 r$178 r$179)) + #f)))) + #f)) + values + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + (((vector-ref v$68 i$67) k$175 x$65)) + #t)))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((x$69 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))) + (82 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (k$215 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t)))) + ((j/s$51 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))) + (83 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((j1$59 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))) + ((85 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((Cyc-fast-div + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f))) + (k$219 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t)))) + ((87 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((88 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (zr$104 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 159 + #f + #f + #f + 1 + (142) + #f + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + 0 + 1 + #t + #f + #f)))) + ((89 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((92 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t))) + (zr$108 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 5 + (157 157 157 157 157) + #f + #f + 0 + 5 + #t + #f + #f)))) + ((i$67 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + ((94 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((96 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((98 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((100 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((Cyc-version + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))) + ((102 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((104 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((flush-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f))) + (105 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((r$85 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))) + (Cyc-fast-gt + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (157) #f #f 1 0 #t #f #f))) + (106 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((109 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f))) + (run-r7rs-benchmark + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 71 + #f + #f + 2 + (-1 89) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + 0 + #f)) + #f)) + (set! loop$56 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ + (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + 1 + 0 + #f + #f + #f)))) + ((count$70 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 100 + #f + #f + #f + 3 + (96 88 89) + #f + #f + 0 + 3 + #f + #f + #f))) + (110 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((display + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 13 + (47 14 15 16 17 18 20 22 23 25 28 63 64) + #f + #f + 13 + 0 + #f + #f + #f)))) + ((j0$53 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))) + (thunk$45 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))) + (r$178 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))) + (113 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$80) #t)))) + ((r$179 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))) + (114 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((115 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((current-output-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f))) + (117 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((k$224 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 131 #f #f #f 2 (130 124) #f #f 0 2 #f #f #t)))) + ((119 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((120 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((y$89 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 137 + #f + #f + #f + 4 + (137 130 127 126) + #f + #f + 0 + 4 + #f + #f + #f)))) + ((122 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + ((124 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((125 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + ((126 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((127 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((130 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((test . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 119 + #f + #f + 2 + (87 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(104 + (r$203) + ((k$200 (vector-ref + (vector-ref + matrix$78 + 0) + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(109 + (r$210) + ((loop$80 + k$208 + (Cyc-fast-sub + i$81 + 1))) + #f)) + (vector-set! + matrix$78 + i$81 + r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + (make-vector n$77))) + #t))) + 1 + 0 + #f + #f + #f))) + (131 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop2$91) #t)))) + ((i$79 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 115 + #f + #f + #f + 1 + (106) + #f + (Cyc-fast-sub n$77 1) + 0 + 1 + #f + #f + #f))) + (132 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + ((136 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((137 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop1$88) #t)))) + ((138 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + ((141 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((142 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #f)))) + () + () + ((r$97 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f)))) + ((r$117 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f))) + (round__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f)))) + () + ((secs2$63 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f)))) + ((newline + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (44 13 21 62) + #f + #f + 4 + 0 + #f + #f + #f)))) + () + ((v$68 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))) + ((y$93 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f)))) + ((input1$71 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 98 #f #f #f 2 (94 88) #f #f 0 2 #t #f #f)))) + ((k$233 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 1 (142) #f #f 0 1 #t #f #t)))) + () + ((main . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 102 + #f + #f + 2 + (-1 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + #f)) + (number->string + input1$71))) + #f)) + (number->string + count$70))) + #f)))) + #f)))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f)))) + ((157 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? (loop$105) #f)))) + ((158 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + ((k$238 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 3 + (157 157 157) + #f + #f + 2 + 1 + #t + #f + #t))) + (159 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + ((i$81 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 113 + #f + #f + #f + 3 + (110 109 113) + #f + #f + 0 + 3 + #t + #f + #f)))) + () + () + ((i$84 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + () + () + () + ((168 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(#f ? () #t)))) + () + () + () + () + () + () + () + () + ((r$121 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 64 + #f + #f + #f + 0 + () + #f + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((r$122 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$123 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$124 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f))) + (k$167 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t)))) + ((r$125 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (r$192 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 89 + #f + #f + #f + 1 + (89) + #f + (string-append "mbrot" ":" s1$74 ":" s2$73) + 0 + 1 + #t + #f + #f)))) + () + () + ((current-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f)))) + ((r$129 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 5 + #f + #f + #f + 0 + () + #f + (set! loop$56 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(49 + (k$131 i$58 result$57) + ((if (Cyc-fast-lt i$58 count$46) + (thunk$45 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(7 + (r$134) + ((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub t1$60 t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))) + 0 + 0 + #t + #f + #f)))) + ((r$197 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))) + (x$92 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 131 + #f + #f + #f + 4 + (131 130 127 125) + #f + #f + 0 + 4 + #f + #t + #f))) + (loop2$91 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 132 + #f + #f + #f + 3 + (124 132 122) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(124 + (r$227) + ((loop2$91 k$224 r$227)) + #f)) + (Cyc-fast-sub x$92 1))) + #f)) + (vector-set! r$228 y$89 r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 k$224 (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t)) + 2 + 0 + #f + #f + #f)))) + ((output$72 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 96 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))) + ((x$94 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f)))) + () + () + ((loop1$88 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 138 + #f + #f + #f + 3 + (130 138 120) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 k$219 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref matrix$86 x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t)) + 2 + 0 + #f + #f + #f)))) + ((loop$56 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 50 + #f + #f + #f + 3 + (7 50 5) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(49 + (k$131 i$58 result$57) + ((if (Cyc-fast-lt i$58 count$46) + (thunk$45 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(7 + (r$134) + ((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub t1$60 t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t)) + 2 + 0 + #t + #f + #f)))) + ((r$202 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$203 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + () + () + ((r$206 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 106 + #f + #f + #f + 0 + () + #f + (set! loop$80 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((loop$80 k$208 (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))) + 0 + 0 + #t + #f + #f)))) + () + () + () + () + () + ((vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (82) #f #f 1 0 #f #f #f))) + (i$96 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f)))) + () + () + () + () + ((step$83 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))) + ((inexact__inline__ + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 6 + (26 14 168 168 157 157) + #f + #f + 6 + 0 + #t + #f + #f)))) + () + ((n$77 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 119 + #f + #f + #f + 4 + (119 117 113 105) + #f + #f + 0 + 4 + #f + #t + #f)))) + ((k$172 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t)))) + () + () + ((k$175 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t)))) + () + ((r$134 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f))) + (k$177 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t)))) + ((t1$60 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f))) + (r$135 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f))) + (t0$52 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f)))) + ((r$136 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + () + () + ((zi$103 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 159 + #f + #f + #f + 1 + (142) + #f + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)) + 0 + 1 + #t + #f + #f)))) + () + ((jiffies-per-second + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))) + (loop$105 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 158 + #f + #f + #f + 3 + (157 158 142) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + (k$238 c$106) + (loop$105 + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95))) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95))) + (Cyc-fast-plus c$106 1))))) + #t)) + 2 + 0 + #t + #f + #f)))) + () + ((zi$107 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 157 + #f + #f + #f + 5 + (157 157 157 157 157) + #f + #f + 0 + 5 + #t + #f + #f)))) + ((number->string + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f)))) + ((r$210 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 109 + #f + #f + #f + 0 + () + #f + (vector-set! matrix$78 i$81 r$212) + 0 + 0 + #t + #f + #f))) + (count . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 168 + #f + #f + 2 + (127 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(159 + (zr$104 zi$103) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(142 + (r$236) + ((loop$105 k$233 zr$104 zi$103 0)) + #f)) + (set! loop$105 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul + zr$108 + zr$108) + (Cyc-fast-mul + zi$107 + zi$107)) + 16.0) + (k$238 c$106) + (loop$105 + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul + zr$108 + zr$108) + (Cyc-fast-mul + zi$107 + zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul + (inexact__inline__ x$94) + step$95))) + (Cyc-fast-plus + (Cyc-fast-mul + 2.0 + (Cyc-fast-mul + zr$108 + zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul + (inexact__inline__ y$93) + step$95))) + (Cyc-fast-plus c$106 1))))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + ((r$212 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 110 + #f + #f + #f + 1 + (110) + #f + (make-vector n$77) + 0 + 1 + #t + #f + #f)))) + ((call-with-values + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f))) + (Cyc-fast-gte + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 3 + (113 137 131) + #f + #f + 3 + 0 + #t + #f + #f)))) + ((this-scheme-implementation-name + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + -1 + 4 + #f + #f + 2 + (-1 19) + #f + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + 1 + 0 + #f + #f + #f)))) + () + () + ((string-append + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (3 92) #f #f 2 0 #t #f #f))) + (r$217 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 120 + #f + #f + #f + 0 + () + #f + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub + y$89 + 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))) + 0 + 0 + #t + #f + #f)))) + () + () + ((s2$73 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 94 + #f + #f + #f + 1 + (92) + #f + (number->string count$70) + 0 + 1 + #t + #f + #f)))) + () + () + () + ((write . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))) + (ok?$44 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f)))) + ((vector-set! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f))) + (n$82 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 141 #f #f #f 2 (122 120) #f #f 0 2 #t #f #f)))) + () + () + () + ((vector-ref + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(? + ? + #f + #f + #f + 4 + (74 104 104 130) + #f + #f + 4 + 0 + #t + #f + #f))) + (k$180 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 78 + #f + #f + #f + 2 + (78 78) + #f + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)) + 2 + 0 + #t + #f + #t))) + (step$95 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 168 + #f + #f + #f + 4 + (168 168 157 157) + #f + #f + 0 + 4 + #t + #f + #f)))) + () + () + ((k$183 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))) + (k$116 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t)))) + () + ((r$142 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))) + ((r$143 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (k$186 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 102 #f #f #f 1 (89) #f #f 0 1 #f #f #t)))) + ((r$144 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (result$57 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f + 49 + #f + #f + #f + 4 + (49 45 41 10) + #f + #f + 0 + 4 + #f + #f + #f)))) + ((r$145 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + defines-lambda-id + const + const-value + ref-count + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count + inlinable + mutated-indirectly + cont)) + #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f))) + (-1 + . + #((record-marker) + #((record-marker) + #f + (simple + unused-params + assigned-to-var + side-effects)) + #(? ? () #t))))))) + */ +/* +"---------------- after cps optimizations (3):" + */ +/* +((define count + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(168 + (k$233 r$97 i$96 step$95 x$94 y$93) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(158 + (loop$105) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(142 + (r$236) + ((loop$105 + k$233 + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)) + 0)) + #f)) + (set! loop$105 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(157 + (k$238 zr$108 zi$107 c$106) + ((if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + (k$238 c$106) + (loop$105 + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul + (inexact__inline__ x$94) + step$95))) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul + (inexact__inline__ y$93) + step$95))) + (Cyc-fast-plus c$106 1))))) + #t))))) + #f)) + #f)) + #t))) + (define mbrot + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(141 + (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(138 + (loop1$88) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(120 + (r$217) + ((loop1$88 k$215 (Cyc-fast-sub n$82 1))) + #f)) + (set! loop1$88 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(137 + (k$219 y$89) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(136 + (r$220) + ((if r$220 + (#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(132 + (loop2$91) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(122 + (r$222) + ((loop2$91 + k$219 + (Cyc-fast-sub n$82 1))) + #f)) + (set! loop2$91 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(131 + (k$224 x$92) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(130 + (r$225) + ((if r$225 + (#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(127 + (r$228) + ((count #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(126 + (r$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(125 + (r$226) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(124 + (r$227) + ((loop2$91 + k$224 + r$227)) + #f)) + (Cyc-fast-sub + x$92 + 1))) + #f)) + (vector-set! + r$228 + y$89 + r$229))) + #f)) + r$85 + i$84 + step$83 + x$92 + y$89)) + #f)) + (vector-ref + matrix$86 + x$92)) + (loop1$88 + k$224 + (Cyc-fast-sub y$89 1)))) + #f)) + (Cyc-fast-gte x$92 0))) + #t))))) + #f)) + #f) + (k$219 #f))) + #f)) + (Cyc-fast-gte y$89 0))) + #t))))) + #f)) + #f)) + #t))) + (define test + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(119 + (k$200 n$77) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(117 + (matrix$78) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(115 + (i$79) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(114 + (loop$80) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(106 + (r$206) + ((loop$80 + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(105 + (r$202) + ((mbrot #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(104 + (r$203) + ((k$200 (vector-ref + (vector-ref + matrix$78 + 0) + 0))) + #f)) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + #f)) + i$79)) + #f)) + (set! loop$80 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(113 + (k$208 i$81) + ((if (Cyc-fast-gte i$81 0) + (#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(110 + (r$212) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(109 + (r$210) + ((loop$80 + k$208 + (Cyc-fast-sub i$81 1))) + #f)) + (vector-set! matrix$78 i$81 r$212))) + #f)) + (make-vector n$77)) + (k$208 #f))) + #t))))) + #f)) + #f)) + #f)) + (Cyc-fast-sub n$77 1))) + #f)) + (make-vector n$77))) + #t))) + (define main + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(102 + (k$186) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(100 + (count$70) + ((read #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(98 + (input1$71) + ((read #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(96 + (output$72) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(94 + (s2$73) + ((#((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(92 + (s1$74) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(89 + (r$192) + ((run-r7rs-benchmark + k$186 + r$192 + count$70 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(88 + (k$196) + ((hide #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(87 + (r$197) + ((test k$196 + r$197)) + #f)) + count$70 + input1$71)) + #t)) + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(85 + (k$195 result$76) + ((k$195 (Cyc-fast-eq + result$76 + output$72))) + #t)))) + #f)) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + #f)) + (number->string input1$71))) + #f)) + (number->string count$70))) + #f)))) + #f)))) + #f)))) + #t))) + (define hide + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(83 + (k$172 r$66 x$65) + ((call-with-values + k$172 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(82 + (k$177) + ((vector + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(79 + (r$178) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(78 + (k$180) + ((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(76 (r$179) ((values k$177 r$178 r$179)) #f)))) + #f)) + values + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(81 (k$183 x$69) ((k$183 x$69)) #t)))) + #t)) + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(74 + (k$175 v$68 i$67) + (((vector-ref v$68 i$67) k$175 x$65)) + #t)))) + #t))) + (define run-r7rs-benchmark + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(71 + (k$120 name$47 count$46 thunk$45 ok?$44) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(70 + (rounded$49) + ((#((record-marker) + #((record-marker) #f (id args body has-cont)) + #(64 + (r$121) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(63 + (r$122) + ((display + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(62 + (r$123) + ((newline + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(61 + (r$124) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(60 + (r$165) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args body has-cont)) + #(59 + (r$125) + ((jiffies-per-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(57 + (j/s$51) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(55 + (t0$52) + ((current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(53 + (j0$53) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(50 + (loop$56) + ((#((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(5 + (r$129) + ((loop$56 + k$120 + 0 + #f)) + #f)) + (set! loop$56 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(49 + (k$131 i$58 + result$57) + ((if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(7 + (r$134) + ((loop$56 + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134)) + #f))) + (ok?$44 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(47 + (r$135) + ((if r$135 + (current-jiffy + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(38 + (j1$59) + ((current-second + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(36 + (t1$60) + ((rounded$49 + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(28 + (secs2$63) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(26 + (r$142) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(25 + (r$143) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(24 + (r$144) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(23 + (r$145) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(22 + (r$146) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(21 + (r$147) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(20 + (r$148) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(19 + (r$149) + ((this-scheme-implementation-name + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(18 + (r$157) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(17 + (r$150) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(16 + (r$151) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(15 + (r$152) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(14 + (r$153) + ((display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(13 + (r$154) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(12 + (r$155) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(11 + (r$156) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(10 + (r$136) + ((k$131 result$57)) + #f)) + r$156)) + #f)))) + #f)))) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + ",")) + #f)) + name$47)) + #f)) + ",")) + #f)) + r$157)) + #f)))) + #f)) + "+!CSVLINE!+")) + #f)))) + #f)) + name$47)) + #f)) + ") for ")) + #f)) + secs2$63)) + #f)) + " seconds (")) + #f)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + #f)) + "Elapsed time: ")) + #f)) + (Cyc-fast-sub + t1$60 + t0$52))) + #f)))) + #f))) + (display + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(45 + (r$160) + ((write #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(44 + (r$161) + ((newline + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(43 + (r$162) + ((current-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(42 + (r$164) + ((flush-output-port + #((record-marker) + #((record-marker) + #f + (id args + body + has-cont)) + #(41 + (r$163) + ((k$131 result$57)) + #f)) + r$164)) + #f)))) + #f)))) + #f)) + result$57)) + #f)) + "ERROR: returned incorrect result: "))) + #f)) + result$57))) + #t))))) + #f)) + #f)) + #f)))) + #f)))) + #f)))) + #f)) + r$165)) + #f)))) + #f)))) + #f)) + name$47)) + #f)) + "Running ")) + #f)) + (set! rounded$49 + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(68 + (k$167 x$64) + ((k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))) + #t))))) + #f)) + #f)) + #t))) + (define this-scheme-implementation-name + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(4 + (k$116) + ((Cyc-version + #((record-marker) + #((record-marker) #f (id args body has-cont)) + #(3 + (r$117) + ((k$116 (string-append "cyclone-" r$117))) + #f)))) + #t))) + (main %halt)) + */ +/* +"---------------- after wrap-mutables:" + */ +/* +((define count + (lambda (k$233 r$97 i$96 step$95 x$94 y$93) + ((lambda (loop$105) + ((lambda (loop$105) + ((lambda (r$236) + ((cell-get loop$105) + k$233 + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95)) + 0)) + (set-cell! + loop$105 + (lambda (k$238 zr$108 zi$107 c$106) + (if (Cyc-fast-eq c$106 64) + (k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + (k$238 c$106) + ((cell-get loop$105) + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + r$97 + (Cyc-fast-mul (inexact__inline__ x$94) step$95))) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + i$96 + (Cyc-fast-mul (inexact__inline__ y$93) step$95))) + (Cyc-fast-plus c$106 1)))))))) + (cell loop$105))) + #f))) + (define mbrot + (lambda (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((lambda (loop1$88) + ((lambda (loop1$88) + ((lambda (r$217) + ((cell-get loop1$88) k$215 (Cyc-fast-sub n$82 1))) + (set-cell! + loop1$88 + (lambda (k$219 y$89) + ((lambda (r$220) + (if r$220 + ((lambda (loop2$91) + ((lambda (loop2$91) + ((lambda (r$222) + ((cell-get loop2$91) k$219 (Cyc-fast-sub n$82 1))) + (set-cell! + loop2$91 + (lambda (k$224 x$92) + ((lambda (r$225) + (if r$225 + ((lambda (r$228) + (count (lambda (r$229) + ((lambda (r$226) + ((lambda (r$227) + ((cell-get loop2$91) + k$224 + r$227)) + (Cyc-fast-sub x$92 1))) + (vector-set! + r$228 + y$89 + r$229))) + r$85 + i$84 + step$83 + x$92 + y$89)) + (vector-ref matrix$86 x$92)) + ((cell-get loop1$88) + k$224 + (Cyc-fast-sub y$89 1)))) + (Cyc-fast-gte x$92 0)))))) + (cell loop2$91))) + #f) + (k$219 #f))) + (Cyc-fast-gte y$89 0)))))) + (cell loop1$88))) + #f))) + (define test + (lambda (k$200 n$77) + ((lambda (matrix$78) + ((lambda (i$79) + ((lambda (loop$80) + ((lambda (loop$80) + ((lambda (r$206) + ((cell-get loop$80) + (lambda (r$202) + (mbrot (lambda (r$203) + (k$200 (vector-ref (vector-ref matrix$78 0) 0))) + matrix$78 + -1.0 + -0.5 + 0.005 + n$77)) + i$79)) + (set-cell! + loop$80 + (lambda (k$208 i$81) + (if (Cyc-fast-gte i$81 0) + ((lambda (r$212) + ((lambda (r$210) + ((cell-get loop$80) k$208 (Cyc-fast-sub i$81 1))) + (vector-set! matrix$78 i$81 r$212))) + (make-vector n$77)) + (k$208 #f)))))) + (cell loop$80))) + #f)) + (Cyc-fast-sub n$77 1))) + (make-vector n$77)))) + (define main + (lambda (k$186) + (read (lambda (count$70) + (read (lambda (input1$71) + (read (lambda (output$72) + ((lambda (s2$73) + ((lambda (s1$74) + ((lambda (r$192) + (run-r7rs-benchmark + k$186 + r$192 + count$70 + (lambda (k$196) + (hide (lambda (r$197) + (test k$196 r$197)) + count$70 + input1$71)) + (lambda (k$195 result$76) + (k$195 (Cyc-fast-eq + result$76 + output$72))))) + (string-append + "mbrot" + ":" + s1$74 + ":" + s2$73))) + (number->string input1$71))) + (number->string count$70)))))))))) + (define hide + (lambda (k$172 r$66 x$65) + (call-with-values + k$172 + (lambda (k$177) + (vector + (lambda (r$178) + ((lambda (k$180) + (if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1))) + (lambda (r$179) (values k$177 r$178 r$179)))) + values + (lambda (k$183 x$69) (k$183 x$69)))) + (lambda (k$175 v$68 i$67) + ((vector-ref v$68 i$67) k$175 x$65))))) + (define run-r7rs-benchmark + (lambda (k$120 name$47 count$46 thunk$45 ok?$44) + ((lambda (rounded$49) + ((lambda (rounded$49) + ((lambda (r$121) + (display + (lambda (r$122) + (display + (lambda (r$123) + (newline + (lambda (r$124) + (current-output-port + (lambda (r$165) + (flush-output-port + (lambda (r$125) + (jiffies-per-second + (lambda (j/s$51) + (current-second + (lambda (t0$52) + (current-jiffy + (lambda (j0$53) + ((lambda (loop$56) + ((lambda (loop$56) + ((lambda (r$129) + ((cell-get loop$56) + k$120 + 0 + #f)) + (set-cell! + loop$56 + (lambda (k$131 + i$58 + result$57) + (if (Cyc-fast-lt + i$58 + count$46) + (thunk$45 + (lambda (r$134) + ((cell-get + loop$56) + k$131 + (Cyc-fast-plus + i$58 + 1) + r$134))) + (ok?$44 + (lambda (r$135) + (if r$135 + (current-jiffy + (lambda (j1$59) + (current-second + (lambda (t1$60) + ((cell-get + rounded$49) + (lambda (secs2$63) + (display + (lambda (r$142) + (write (lambda (r$143) + (display + (lambda (r$144) + (write (lambda (r$145) + (display + (lambda (r$146) + (display + (lambda (r$147) + (newline + (lambda (r$148) + (display + (lambda (r$149) + (this-scheme-implementation-name + (lambda (r$157) + (display + (lambda (r$150) + (display + (lambda (r$151) + (display + (lambda (r$152) + (display + (lambda (r$153) + (display + (lambda (r$154) + (newline + (lambda (r$155) + (current-output-port + (lambda (r$156) + (flush-output-port + (lambda (r$136) + (k$131 result$57)) + r$156)))))) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + ",")) + name$47)) + ",")) + r$157)))) + "+!CSVLINE!+")))) + name$47)) + ") for ")) + secs2$63)) + " seconds (")) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + j1$59 + j0$53) + j/s$51)))) + "Elapsed time: ")) + (Cyc-fast-sub + t1$60 + t0$52)))))) + (display + (lambda (r$160) + (write (lambda (r$161) + (newline + (lambda (r$162) + (current-output-port + (lambda (r$164) + (flush-output-port + (lambda (r$163) + (k$131 result$57)) + r$164)))))) + result$57)) + "ERROR: returned incorrect result: "))) + result$57)))))) + (cell loop$56))) + #f)))))))) + r$165)))))) + name$47)) + "Running ")) + (set-cell! + rounded$49 + (lambda (k$167 x$64) + (k$167 (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000)))))) + (cell rounded$49))) + #f))) + (define this-scheme-implementation-name + (lambda (k$116) + (Cyc-version + (lambda (r$117) + (k$116 (string-append "cyclone-" r$117)))))) + (main %halt)) + */ +/* +"---------------- after closure-convert:" + */ +/* +((define count + (lambda (k$233 r$97 i$96 step$95 x$94 y$93) + ((%closure + (lambda (self$337 loop$105) + ((%closure + (lambda (self$338 loop$105) + ((%closure + (lambda (self$340 r$236) + ((%closure-ref + (cell-get (%closure-ref self$340 3)) + 0) + (cell-get (%closure-ref self$340 3)) + (%closure-ref self$340 2) + (Cyc-fast-plus + (%closure-ref self$340 4) + (Cyc-fast-mul + (inexact__inline__ (%closure-ref self$340 6)) + (%closure-ref self$340 5))) + (Cyc-fast-plus + (%closure-ref self$340 1) + (Cyc-fast-mul + (inexact__inline__ (%closure-ref self$340 7)) + (%closure-ref self$340 5))) + 0)) + (%closure-ref self$338 1) + (%closure-ref self$338 2) + loop$105 + (%closure-ref self$338 3) + (%closure-ref self$338 4) + (%closure-ref self$338 5) + (%closure-ref self$338 6)) + (set-cell! + loop$105 + (%closure + (lambda (self$339 k$238 zr$108 zi$107 c$106) + (if (Cyc-fast-eq c$106 64) + ((%closure-ref k$238 0) k$238 c$106) + (if (Cyc-fast-gt + (Cyc-fast-plus + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + 16.0) + ((%closure-ref k$238 0) k$238 c$106) + ((%closure-ref + (cell-get (%closure-ref self$339 2)) + 0) + (cell-get (%closure-ref self$339 2)) + k$238 + (Cyc-fast-plus + (Cyc-fast-sub + (Cyc-fast-mul zr$108 zr$108) + (Cyc-fast-mul zi$107 zi$107)) + (Cyc-fast-plus + (%closure-ref self$339 3) + (Cyc-fast-mul + (inexact__inline__ (%closure-ref self$339 5)) + (%closure-ref self$339 4)))) + (Cyc-fast-plus + (Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107)) + (Cyc-fast-plus + (%closure-ref self$339 1) + (Cyc-fast-mul + (inexact__inline__ (%closure-ref self$339 6)) + (%closure-ref self$339 4)))) + (Cyc-fast-plus c$106 1))))) + (%closure-ref self$338 1) + loop$105 + (%closure-ref self$338 3) + (%closure-ref self$338 4) + (%closure-ref self$338 5) + (%closure-ref self$338 6))))) + (%closure-ref self$337 1) + (%closure-ref self$337 2) + (%closure-ref self$337 3) + (%closure-ref self$337 4) + (%closure-ref self$337 5) + (%closure-ref self$337 6)) + (cell loop$105))) + i$96 + k$233 + r$97 + step$95 + x$94 + y$93) + #f))) + (define mbrot + (lambda (k$215 matrix$86 r$85 i$84 step$83 n$82) + ((%closure + (lambda (self$323 loop1$88) + ((%closure + (lambda (self$324 loop1$88) + ((%closure + (lambda (self$336 r$217) + ((%closure-ref + (cell-get (%closure-ref self$336 2)) + 0) + (cell-get (%closure-ref self$336 2)) + (%closure-ref self$336 1) + (Cyc-fast-sub (%closure-ref self$336 3) 1))) + (%closure-ref self$324 2) + loop1$88 + (%closure-ref self$324 4)) + (set-cell! + loop1$88 + (%closure + (lambda (self$325 k$219 y$89) + ((%closure + (lambda (self$326 r$220) + (if r$220 + ((%closure + (lambda (self$327 loop2$91) + ((%closure + (lambda (self$328 loop2$91) + ((%closure + (lambda (self$335 r$222) + ((%closure-ref + (cell-get + (%closure-ref self$335 2)) + 0) + (cell-get + (%closure-ref self$335 2)) + (%closure-ref self$335 1) + (Cyc-fast-sub + (%closure-ref self$335 3) + 1))) + (%closure-ref self$328 2) + loop2$91 + (%closure-ref self$328 5)) + (set-cell! + loop2$91 + (%closure + (lambda (self$329 k$224 x$92) + ((%closure + (lambda (self$330 r$225) + (if r$225 + ((%closure + (lambda (self$331 r$228) + ((%closure-ref + count + 0) + count + (%closure + (lambda (self$332 + r$229) + ((%closure + (lambda (self$333 + r$226) + ((%closure + (lambda (self$334 + r$227) + ((%closure-ref + (cell-get + (%closure-ref + self$334 + 2)) + 0) + (cell-get + (%closure-ref + self$334 + 2)) + (%closure-ref + self$334 + 1) + r$227)) + (%closure-ref + self$333 + 1) + (%closure-ref + self$333 + 2)) + (Cyc-fast-sub + (%closure-ref + self$333 + 3) + 1))) + (%closure-ref + self$332 + 1) + (%closure-ref + self$332 + 2) + (%closure-ref + self$332 + 4)) + (vector-set! + (%closure-ref + self$332 + 3) + (%closure-ref + self$332 + 5) + r$229))) + (%closure-ref + self$331 + 2) + (%closure-ref + self$331 + 3) + r$228 + (%closure-ref + self$331 + 6) + (%closure-ref + self$331 + 7)) + (%closure-ref + self$331 + 4) + (%closure-ref + self$331 + 1) + (%closure-ref + self$331 + 5) + (%closure-ref + self$331 + 6) + (%closure-ref + self$331 + 7))) + (%closure-ref + self$330 + 1) + (%closure-ref + self$330 + 2) + (%closure-ref + self$330 + 4) + (%closure-ref + self$330 + 6) + (%closure-ref + self$330 + 7) + (%closure-ref + self$330 + 8) + (%closure-ref + self$330 + 9)) + (vector-ref + (%closure-ref + self$330 + 5) + (%closure-ref + self$330 + 8))) + ((%closure-ref + (cell-get + (%closure-ref + self$330 + 3)) + 0) + (cell-get + (%closure-ref + self$330 + 3)) + (%closure-ref self$330 2) + (Cyc-fast-sub + (%closure-ref + self$330 + 9) + 1)))) + (%closure-ref self$329 1) + k$224 + (%closure-ref self$329 2) + (%closure-ref self$329 3) + (%closure-ref self$329 4) + (%closure-ref self$329 5) + (%closure-ref self$329 6) + x$92 + (%closure-ref self$329 7)) + (Cyc-fast-gte x$92 0))) + (%closure-ref self$328 1) + (%closure-ref self$328 3) + loop2$91 + (%closure-ref self$328 4) + (%closure-ref self$328 6) + (%closure-ref self$328 7) + (%closure-ref self$328 8))))) + (%closure-ref self$327 1) + (%closure-ref self$327 2) + (%closure-ref self$327 3) + (%closure-ref self$327 4) + (%closure-ref self$327 5) + (%closure-ref self$327 6) + (%closure-ref self$327 7) + (%closure-ref self$327 8)) + (cell loop2$91))) + (%closure-ref self$326 1) + (%closure-ref self$326 2) + (%closure-ref self$326 3) + (%closure-ref self$326 4) + (%closure-ref self$326 5) + (%closure-ref self$326 6) + (%closure-ref self$326 7) + (%closure-ref self$326 8)) + #f) + ((%closure-ref (%closure-ref self$326 2) 0) + (%closure-ref self$326 2) + #f))) + (%closure-ref self$325 1) + k$219 + (%closure-ref self$325 2) + (%closure-ref self$325 3) + (%closure-ref self$325 4) + (%closure-ref self$325 5) + (%closure-ref self$325 6) + y$89) + (Cyc-fast-gte y$89 0))) + (%closure-ref self$324 1) + loop1$88 + (%closure-ref self$324 3) + (%closure-ref self$324 4) + (%closure-ref self$324 5) + (%closure-ref self$324 6))))) + (%closure-ref self$323 1) + (%closure-ref self$323 2) + (%closure-ref self$323 3) + (%closure-ref self$323 4) + (%closure-ref self$323 5) + (%closure-ref self$323 6)) + (cell loop1$88))) + i$84 + k$215 + matrix$86 + n$82 + r$85 + step$83) + #f))) + (define test + (lambda (k$200 n$77) + ((%closure + (lambda (self$313 matrix$78) + ((%closure + (lambda (self$314 i$79) + ((%closure + (lambda (self$315 loop$80) + ((%closure + (lambda (self$316 loop$80) + ((%closure + (lambda (self$320 r$206) + ((%closure-ref + (cell-get (%closure-ref self$320 3)) + 0) + (cell-get (%closure-ref self$320 3)) + (%closure + (lambda (self$321 r$202) + ((%closure-ref mbrot 0) + mbrot + (%closure + (lambda (self$322 r$203) + ((%closure-ref + (%closure-ref self$322 1) + 0) + (%closure-ref self$322 1) + (vector-ref + (vector-ref + (%closure-ref self$322 2) + 0) + 0))) + (%closure-ref self$321 1) + (%closure-ref self$321 2)) + (%closure-ref self$321 2) + -1.0 + -0.5 + 0.005 + (%closure-ref self$321 3))) + (%closure-ref self$320 2) + (%closure-ref self$320 4) + (%closure-ref self$320 5)) + (%closure-ref self$320 1))) + (%closure-ref self$316 1) + (%closure-ref self$316 2) + loop$80 + (%closure-ref self$316 3) + (%closure-ref self$316 4)) + (set-cell! + loop$80 + (%closure + (lambda (self$317 k$208 i$81) + (if (Cyc-fast-gte i$81 0) + ((%closure + (lambda (self$318 r$212) + ((%closure + (lambda (self$319 r$210) + ((%closure-ref + (cell-get + (%closure-ref self$319 3)) + 0) + (cell-get + (%closure-ref self$319 3)) + (%closure-ref self$319 2) + (Cyc-fast-sub + (%closure-ref self$319 1) + 1))) + (%closure-ref self$318 1) + (%closure-ref self$318 2) + (%closure-ref self$318 3)) + (vector-set! + (%closure-ref self$318 4) + (%closure-ref self$318 1) + r$212))) + i$81 + k$208 + (%closure-ref self$317 1) + (%closure-ref self$317 2)) + (make-vector (%closure-ref self$317 3))) + ((%closure-ref k$208 0) k$208 #f))) + loop$80 + (%closure-ref self$316 3) + (%closure-ref self$316 4))))) + (%closure-ref self$315 1) + (%closure-ref self$315 2) + (%closure-ref self$315 3) + (%closure-ref self$315 4)) + (cell loop$80))) + i$79 + (%closure-ref self$314 1) + (%closure-ref self$314 2) + (%closure-ref self$314 3)) + #f)) + (%closure-ref self$313 1) + matrix$78 + (%closure-ref self$313 2)) + (Cyc-fast-sub (%closure-ref self$313 2) 1))) + k$200 + n$77) + (make-vector n$77)))) + (define main + (lambda (k$186) + ((%closure-ref read 0) + read + (%closure + (lambda (self$304 count$70) + ((%closure-ref read 0) + read + (%closure + (lambda (self$305 input1$71) + ((%closure-ref read 0) + read + (%closure + (lambda (self$306 output$72) + ((%closure + (lambda (self$307 s2$73) + ((%closure + (lambda (self$308 s1$74) + ((%closure + (lambda (self$309 r$192) + ((%closure-ref run-r7rs-benchmark 0) + run-r7rs-benchmark + (%closure-ref self$309 3) + r$192 + (%closure-ref self$309 1) + (%closure + (lambda (self$311 k$196) + ((%closure-ref hide 0) + hide + (%closure + (lambda (self$312 r$197) + ((%closure-ref test 0) + test + (%closure-ref self$312 1) + r$197)) + k$196) + (%closure-ref self$311 1) + (%closure-ref self$311 2))) + (%closure-ref self$309 1) + (%closure-ref self$309 2)) + (%closure + (lambda (self$310 k$195 result$76) + ((%closure-ref k$195 0) + k$195 + (Cyc-fast-eq + result$76 + (%closure-ref self$310 1)))) + (%closure-ref self$309 4)))) + (%closure-ref self$308 1) + (%closure-ref self$308 2) + (%closure-ref self$308 3) + (%closure-ref self$308 4)) + (string-append + "mbrot" + ":" + s1$74 + ":" + (%closure-ref self$308 5)))) + (%closure-ref self$307 1) + (%closure-ref self$307 2) + (%closure-ref self$307 3) + (%closure-ref self$307 4) + s2$73) + (number->string (%closure-ref self$307 2)))) + (%closure-ref self$306 1) + (%closure-ref self$306 2) + (%closure-ref self$306 3) + output$72) + (number->string (%closure-ref self$306 1)))) + (%closure-ref self$305 1) + input1$71 + (%closure-ref self$305 2)))) + count$70 + (%closure-ref self$304 1)))) + k$186)))) + (define hide + (lambda (k$172 r$66 x$65) + ((%closure-ref call-with-values 0) + call-with-values + k$172 + (%closure + (lambda (self$299 k$177) + ((%closure-ref vector 0) + vector + (%closure + (lambda (self$301 r$178) + ((%closure + (lambda (self$303 k$180) + (if (Cyc-fast-lt (%closure-ref self$303 1) 100) + ((%closure-ref k$180 0) k$180 0) + ((%closure-ref k$180 0) k$180 1))) + (%closure-ref self$301 2)) + (%closure + (lambda (self$302 r$179) + ((%closure-ref values 0) + values + (%closure-ref self$302 1) + (%closure-ref self$302 2) + r$179)) + (%closure-ref self$301 1) + r$178))) + k$177 + (%closure-ref self$299 1)) + values + (%closure + (lambda (self$300 k$183 x$69) + ((%closure-ref k$183 0) k$183 x$69))))) + r$66) + (%closure + (lambda (self$298 k$175 v$68 i$67) + ((%closure-ref (vector-ref v$68 i$67) 0) + (vector-ref v$68 i$67) + k$175 + (%closure-ref self$298 1))) + x$65)))) + (define run-r7rs-benchmark + (lambda (k$120 name$47 count$46 thunk$45 ok?$44) + ((%closure + (lambda (self$255 rounded$49) + ((%closure + (lambda (self$256 rounded$49) + ((%closure + (lambda (self$258 r$121) + ((%closure-ref display 0) + display + (%closure + (lambda (self$259 r$122) + ((%closure-ref display 0) + display + (%closure + (lambda (self$260 r$123) + ((%closure-ref newline 0) + newline + (%closure + (lambda (self$261 r$124) + ((%closure-ref current-output-port 0) + current-output-port + (%closure + (lambda (self$262 r$165) + ((%closure-ref flush-output-port 0) + flush-output-port + (%closure + (lambda (self$263 r$125) + ((%closure-ref + jiffies-per-second + 0) + jiffies-per-second + (%closure + (lambda (self$264 j/s$51) + ((%closure-ref + current-second + 0) + current-second + (%closure + (lambda (self$265 t0$52) + ((%closure-ref + current-jiffy + 0) + current-jiffy + (%closure + (lambda (self$266 + j0$53) + ((%closure + (lambda (self$267 + loop$56) + ((%closure + (lambda (self$268 + loop$56) + ((%closure + (lambda (self$297 + r$129) + ((%closure-ref + (cell-get + (%closure-ref + self$297 + 2)) + 0) + (cell-get + (%closure-ref + self$297 + 2)) + (%closure-ref + self$297 + 1) + 0 + #f)) + (%closure-ref + self$268 + 4) + loop$56) + (set-cell! + loop$56 + (%closure + (lambda (self$269 + k$131 + i$58 + result$57) + (if (Cyc-fast-lt + i$58 + (%closure-ref + self$269 + 1)) + ((%closure-ref + (%closure-ref + self$269 + 9) + 0) + (%closure-ref + self$269 + 9) + (%closure + (lambda (self$296 + r$134) + ((%closure-ref + (cell-get + (%closure-ref + self$296 + 3)) + 0) + (cell-get + (%closure-ref + self$296 + 3)) + (%closure-ref + self$296 + 2) + (Cyc-fast-plus + (%closure-ref + self$296 + 1) + 1) + r$134)) + i$58 + k$131 + (%closure-ref + self$269 + 4))) + ((%closure-ref + (%closure-ref + self$269 + 6) + 0) + (%closure-ref + self$269 + 6) + (%closure + (lambda (self$270 + r$135) + (if r$135 + ((%closure-ref + current-jiffy + 0) + current-jiffy + (%closure + (lambda (self$276 + j1$59) + ((%closure-ref + current-second + 0) + current-second + (%closure + (lambda (self$277 + t1$60) + ((%closure-ref + (cell-get + (%closure-ref + self$277 + 7)) + 0) + (cell-get + (%closure-ref + self$277 + 7)) + (%closure + (lambda (self$278 + secs2$63) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$279 + r$142) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$280 + r$143) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$281 + r$144) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$282 + r$145) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$283 + r$146) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$284 + r$147) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$285 + r$148) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$286 + r$149) + ((%closure-ref + this-scheme-implementation-name + 0) + this-scheme-implementation-name + (%closure + (lambda (self$287 + r$157) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$288 + r$150) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$289 + r$151) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$290 + r$152) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$291 + r$153) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$292 + r$154) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$293 + r$155) + ((%closure-ref + current-output-port + 0) + current-output-port + (%closure + (lambda (self$294 + r$156) + ((%closure-ref + flush-output-port + 0) + flush-output-port + (%closure + (lambda (self$295 + r$136) + ((%closure-ref + (%closure-ref + self$295 + 1) + 0) + (%closure-ref + self$295 + 1) + (%closure-ref + self$295 + 2))) + (%closure-ref + self$294 + 1) + (%closure-ref + self$294 + 2)) + r$156)) + (%closure-ref + self$293 + 1) + (%closure-ref + self$293 + 2)))) + (%closure-ref + self$292 + 1) + (%closure-ref + self$292 + 2)))) + (%closure-ref + self$291 + 4) + (%closure-ref + self$291 + 5)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + (%closure-ref + self$291 + 3) + (%closure-ref + self$291 + 2)) + (%closure-ref + self$291 + 1))))) + (%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$289 + 1) + (%closure-ref + self$289 + 2) + (%closure-ref + self$289 + 3) + (%closure-ref + self$289 + 4) + (%closure-ref + self$289 + 6)) + (%closure-ref + self$289 + 5))) + (%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)) + r$157)) + (%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)))) + (%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)) + "+!CSVLINE!+")) + (%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$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 + 5))) + (%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)) + ") for ")) + (%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)) + (%closure-ref + self$281 + 7))) + (%closure-ref + self$280 + 1) + (%closure-ref + self$280 + 2) + (%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)) + " seconds (")) + (%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)) + (inexact__inline__ + (Cyc-fast-div + (Cyc-fast-sub + (%closure-ref + self$279 + 3) + (%closure-ref + self$279 + 2)) + (%closure-ref + self$279 + 1))))) + (%closure-ref + self$278 + 1) + (%closure-ref + self$278 + 2) + (%closure-ref + self$278 + 3) + (%closure-ref + self$278 + 4) + (%closure-ref + self$278 + 5) + (%closure-ref + self$278 + 6) + secs2$63) + "Elapsed time: ")) + (%closure-ref + self$277 + 1) + (%closure-ref + self$277 + 2) + (%closure-ref + self$277 + 3) + (%closure-ref + self$277 + 4) + (%closure-ref + self$277 + 5) + (%closure-ref + self$277 + 6)) + (Cyc-fast-sub + t1$60 + (%closure-ref + self$277 + 8)))) + (%closure-ref + self$276 + 1) + (%closure-ref + self$276 + 2) + j1$59 + (%closure-ref + self$276 + 3) + (%closure-ref + self$276 + 4) + (%closure-ref + self$276 + 5) + (%closure-ref + self$276 + 6) + (%closure-ref + self$276 + 7)))) + (%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) + (%closure-ref + self$270 + 7))) + ((%closure-ref + display + 0) + display + (%closure + (lambda (self$271 + r$160) + ((%closure-ref + write + 0) + write + (%closure + (lambda (self$272 + r$161) + ((%closure-ref + newline + 0) + newline + (%closure + (lambda (self$273 + r$162) + ((%closure-ref + current-output-port + 0) + current-output-port + (%closure + (lambda (self$274 + r$164) + ((%closure-ref + flush-output-port + 0) + flush-output-port + (%closure + (lambda (self$275 + r$163) + ((%closure-ref + (%closure-ref + self$275 + 1) + 0) + (%closure-ref + self$275 + 1) + (%closure-ref + self$275 + 2))) + (%closure-ref + self$274 + 1) + (%closure-ref + self$274 + 2)) + r$164)) + (%closure-ref + self$273 + 1) + (%closure-ref + self$273 + 2)))) + (%closure-ref + self$272 + 1) + (%closure-ref + self$272 + 2)))) + (%closure-ref + self$271 + 1) + (%closure-ref + self$271 + 2)) + (%closure-ref + self$271 + 2))) + (%closure-ref + self$270 + 3) + (%closure-ref + self$270 + 5)) + "ERROR: returned incorrect result: "))) + (%closure-ref + self$269 + 2) + (%closure-ref + self$269 + 3) + k$131 + (%closure-ref + self$269 + 5) + result$57 + (%closure-ref + self$269 + 7) + (%closure-ref + self$269 + 8)) + result$57))) + (%closure-ref + self$268 + 1) + (%closure-ref + self$268 + 2) + (%closure-ref + self$268 + 3) + loop$56 + (%closure-ref + self$268 + 5) + (%closure-ref + self$268 + 6) + (%closure-ref + self$268 + 7) + (%closure-ref + self$268 + 8) + (%closure-ref + self$268 + 9))))) + (%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 + 7) + (%closure-ref + self$267 + 8) + (%closure-ref + self$267 + 9)) + (cell loop$56))) + (%closure-ref + self$266 + 1) + (%closure-ref + self$266 + 2) + j0$53 + (%closure-ref + self$266 + 3) + (%closure-ref + self$266 + 4) + (%closure-ref + self$266 + 5) + (%closure-ref + self$266 + 6) + (%closure-ref + self$266 + 7) + (%closure-ref + self$266 + 8)) + #f)) + (%closure-ref + self$265 + 1) + (%closure-ref + self$265 + 2) + (%closure-ref + self$265 + 3) + (%closure-ref + self$265 + 4) + (%closure-ref + self$265 + 5) + (%closure-ref + self$265 + 6) + t0$52 + (%closure-ref + self$265 + 7)))) + (%closure-ref self$264 1) + j/s$51 + (%closure-ref self$264 2) + (%closure-ref self$264 3) + (%closure-ref self$264 4) + (%closure-ref self$264 5) + (%closure-ref + self$264 + 6)))) + (%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) + (%closure-ref self$263 6)))) + (%closure-ref self$262 1) + (%closure-ref self$262 2) + (%closure-ref self$262 3) + (%closure-ref self$262 4) + (%closure-ref self$262 5) + (%closure-ref self$262 6)) + r$165)) + (%closure-ref self$261 1) + (%closure-ref self$261 2) + (%closure-ref self$261 3) + (%closure-ref self$261 4) + (%closure-ref self$261 5) + (%closure-ref self$261 6)))) + (%closure-ref self$260 1) + (%closure-ref self$260 2) + (%closure-ref self$260 3) + (%closure-ref self$260 4) + (%closure-ref self$260 5) + (%closure-ref self$260 6)))) + (%closure-ref self$259 1) + (%closure-ref self$259 2) + (%closure-ref self$259 3) + (%closure-ref self$259 4) + (%closure-ref self$259 5) + (%closure-ref self$259 6)) + (%closure-ref self$259 3))) + (%closure-ref self$258 1) + (%closure-ref self$258 2) + (%closure-ref self$258 3) + (%closure-ref self$258 4) + (%closure-ref self$258 5) + (%closure-ref self$258 6)) + "Running ")) + (%closure-ref self$256 1) + (%closure-ref self$256 2) + (%closure-ref self$256 3) + (%closure-ref self$256 4) + rounded$49 + (%closure-ref self$256 5)) + (set-cell! + rounded$49 + (%closure + (lambda (self$257 k$167 x$64) + ((%closure-ref k$167 0) + k$167 + (Cyc-fast-div + (round__inline__ (Cyc-fast-mul 1000 x$64)) + 1000))))))) + (%closure-ref self$255 1) + (%closure-ref self$255 2) + (%closure-ref self$255 3) + (%closure-ref self$255 4) + (%closure-ref self$255 5)) + (cell rounded$49))) + count$46 + k$120 + name$47 + ok?$44 + thunk$45) + #f))) + (define this-scheme-implementation-name + (lambda (k$116) + ((%closure-ref Cyc-version 0) + Cyc-version + (%closure + (lambda (self$254 r$117) + ((%closure-ref (%closure-ref self$254 1) 0) + (%closure-ref self$254 1) + (string-append "cyclone-" r$117))) + k$116)))) + ((%closure-ref main 0) main %halt)) + */ +/* +"---------------- C headers: " + */ +/* +() + */ +/* +"---------------- module globals: " + */ +/* +(this-scheme-implementation-name + run-r7rs-benchmark + hide + main + test + mbrot + count) + */ +/* +"---------------- C code:" + */ +#define closcall1(td, clo,a1) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 0, (closure)(a1), clo); \ +} else { \ + ((clo)->fn)(td, 1, clo,a1);\ +} +#define return_closcall1(td, clo,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1;\ + GC(td, clo, buf, 1); \ + return; \ + } else {\ + closcall1(td, (closure) (clo),a1); \ + return;\ + } \ +} + +#define return_direct1(td, _fn,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 1); \ + return; \ + } else { \ + (_fn)(td, 1, (closure)_fn,a1); \ + }} + +#define closcall2(td, clo,a1,a2) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 1, (closure)(a1), clo,a2); \ +} else { \ + ((clo)->fn)(td, 2, clo,a1,a2);\ +} +#define return_closcall2(td, clo,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2;\ + GC(td, clo, buf, 2); \ + return; \ + } else {\ + closcall2(td, (closure) (clo),a1,a2); \ + return;\ + } \ +} + +#define return_direct2(td, _fn,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 2); \ + return; \ + } else { \ + (_fn)(td, 2, (closure)_fn,a1,a2); \ + }} + +#define closcall3(td, clo,a1,a2,a3) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ +} else { \ + ((clo)->fn)(td, 3, clo,a1,a2,a3);\ +} +#define return_closcall3(td, clo,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ + GC(td, clo, buf, 3); \ + return; \ + } else {\ + closcall3(td, (closure) (clo),a1,a2,a3); \ + return;\ + } \ +} + +#define return_direct3(td, _fn,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 3); \ + return; \ + } else { \ + (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ + }} + +#define closcall4(td, clo,a1,a2,a3,a4) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ +} else { \ + ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ +} +#define return_closcall4(td, clo,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ + GC(td, clo, buf, 4); \ + return; \ + } else {\ + closcall4(td, (closure) (clo),a1,a2,a3,a4); \ + return;\ + } \ +} + +#define return_direct4(td, _fn,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 4); \ + return; \ + } else { \ + (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ + }} + +#define closcall5(td, clo,a1,a2,a3,a4,a5) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ +} else { \ + ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ +} +#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ + GC(td, clo, buf, 5); \ + return; \ + } else {\ + closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ + return;\ + } \ +} + +#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 5); \ + return; \ + } else { \ + (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ + }} + +#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ +if (type_is_pair_prim(clo)) { \ + Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ +} else { \ + ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ +} +#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ + GC(td, clo, buf, 6); \ + return; \ + } else {\ + closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ + return;\ + } \ +} + +#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ + mclosure0(c1, (function_type) _fn); \ + GC(td, &c1, buf, 6); \ + return; \ + } else { \ + (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ + }} + +#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_test = NULL; +object __glo_mbrot = NULL; +object __glo_count = NULL; +extern object __glo_member_scheme_base; +extern object __glo_assoc_scheme_base; +extern object __glo_cons_91source_scheme_base; +extern object __glo_syntax_91rules_scheme_base; +extern object __glo_letrec_85_scheme_base; +extern object __glo_guard_scheme_base; +extern object __glo_guard_91aux_scheme_base; +extern object __glo_define_91record_91type_scheme_base; +extern object __glo_record_127_scheme_base; +extern object __glo_register_91simple_91type_scheme_base; +extern object __glo_make_91type_91predicate_scheme_base; +extern object __glo_make_91constructor_scheme_base; +extern object __glo_make_91getter_scheme_base; +extern object __glo_make_91setter_scheme_base; +extern object __glo_slot_91set_67_scheme_base; +extern object __glo_type_91slot_91offset_scheme_base; +extern object __glo_receive_scheme_base; +extern object __glo_abs_scheme_base; +extern object __glo_max_scheme_base; +extern object __glo_min_scheme_base; +extern object __glo_modulo_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_even_127_scheme_base; +extern object __glo_exact_91integer_127_scheme_base; +extern object __glo_exact_91integer_91sqrt_scheme_base; +extern object __glo_exact_127_scheme_base; +extern object __glo_inexact_127_scheme_base; +extern object __glo_odd_127_scheme_base; +extern object __glo_complex_127_scheme_base; +extern object __glo_rational_127_scheme_base; +extern object __glo_bignum_127_scheme_base; +extern object __glo_gcd_scheme_base; +extern object __glo_lcm_scheme_base; +extern object __glo_quotient_scheme_base; +extern object __glo_remainder_scheme_base; +extern object __glo_truncate_91quotient_scheme_base; +extern object __glo_truncate_91remainder_scheme_base; +extern object __glo_truncate_95_scheme_base; +extern object __glo_floor_91quotient_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_floor_95_scheme_base; +extern object __glo_square_scheme_base; +extern object __glo_expt_scheme_base; +extern object __glo_call_91with_91current_91continuation_scheme_base; +extern object __glo_call_95cc_scheme_base; +extern object __glo_call_91with_91values_scheme_base; +extern object __glo_dynamic_91wind_scheme_base; +extern object __glo_values_scheme_base; +extern object __glo_char_123_127_scheme_base; +extern object __glo_char_121_127_scheme_base; +extern object __glo_char_125_127_scheme_base; +extern object __glo_char_121_123_127_scheme_base; +extern object __glo_char_125_123_127_scheme_base; +extern object __glo_string_123_127_scheme_base; +extern object __glo_string_121_127_scheme_base; +extern object __glo_string_121_123_127_scheme_base; +extern object __glo_string_125_127_scheme_base; +extern object __glo_string_125_123_127_scheme_base; +extern object __glo_foldl_scheme_base; +extern object __glo_foldr_scheme_base; +extern object __glo_not_scheme_base; +extern object __glo_list_127_scheme_base; +extern object __glo_zero_127_scheme_base; +extern object __glo_positive_127_scheme_base; +extern object __glo_negative_127_scheme_base; +extern object __glo_append_scheme_base; +extern object __glo__list_scheme_base; +extern object __glo_make_91list_scheme_base; +extern object __glo_list_91copy_scheme_base; +extern object __glo_map_scheme_base; +extern object __glo_for_91each_scheme_base; +extern object __glo_list_91tail_scheme_base; +extern object __glo_list_91ref_scheme_base; +extern object __glo_list_91set_67_scheme_base; +extern object __glo_reverse_scheme_base; +extern object __glo_boolean_123_127_scheme_base; +extern object __glo_symbol_123_127_scheme_base; +extern object __glo_Cyc_91obj_123_127_scheme_base; +extern object __glo_vector_scheme_base; +extern object __glo_vector_91append_scheme_base; +extern object __glo_vector_91copy_scheme_base; +extern object __glo_vector_91copy_67_scheme_base; +extern object __glo_vector_91fill_67_scheme_base; +extern object __glo_vector_91_125list_scheme_base; +extern object __glo_vector_91_125string_scheme_base; +extern object __glo_vector_91map_scheme_base; +extern object __glo_vector_91for_91each_scheme_base; +extern object __glo_make_91string_scheme_base; +extern object __glo_string_scheme_base; +extern object __glo_string_91copy_scheme_base; +extern object __glo_string_91copy_67_scheme_base; +extern object __glo_string_91fill_67_scheme_base; +extern object __glo_string_91_125list_scheme_base; +extern object __glo_string_91_125vector_scheme_base; +extern object __glo_string_91map_scheme_base; +extern object __glo_string_91for_91each_scheme_base; +extern object __glo_make_91parameter_scheme_base; +extern object __glo_current_91output_91port_scheme_base; +extern object __glo_current_91input_91port_scheme_base; +extern object __glo_current_91error_91port_scheme_base; +extern object __glo_call_91with_91port_scheme_base; +extern object __glo_error_scheme_base; +extern object __glo_raise_scheme_base; +extern object __glo_raise_91continuable_scheme_base; +extern object __glo_with_91handler_scheme_base; +extern object __glo_with_91exception_91handler_scheme_base; +extern object __glo_Cyc_91add_91exception_91handler_scheme_base; +extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; +extern object __glo_newline_scheme_base; +extern object __glo_write_91char_scheme_base; +extern object __glo_write_91string_scheme_base; +extern object __glo_flush_91output_91port_scheme_base; +extern object __glo_read_91line_scheme_base; +extern object __glo_read_91string_scheme_base; +extern object __glo_input_91port_127_scheme_base; +extern object __glo_output_91port_127_scheme_base; +extern object __glo_input_91port_91open_127_scheme_base; +extern object __glo_output_91port_91open_127_scheme_base; +extern object __glo_get_91output_91string_scheme_base; +extern object __glo_open_91output_91string_scheme_base; +extern object __glo_open_91input_91string_scheme_base; +extern object __glo_get_91output_91bytevector_scheme_base; +extern object __glo_open_91input_91bytevector_scheme_base; +extern object __glo_open_91output_91bytevector_scheme_base; +extern object __glo_features_scheme_base; +extern object __glo_Cyc_91version_scheme_base; +extern object __glo_any_scheme_base; +extern object __glo_every_scheme_base; +extern object __glo_and_scheme_base; +extern object __glo_or_scheme_base; +extern object __glo_let_scheme_base; +extern object __glo_let_85_scheme_base; +extern object __glo_letrec_scheme_base; +extern object __glo_let_85_91values_scheme_base; +extern object __glo_let_91values_scheme_base; +extern object __glo_begin_scheme_base; +extern object __glo__case_scheme_base; +extern object __glo_cond_scheme_base; +extern object __glo_cond_91expand_scheme_base; +extern object __glo__do_scheme_base; +extern object __glo_when_scheme_base; +extern object __glo_unless_scheme_base; +extern object __glo_quasiquote_scheme_base; +extern object __glo_floor_scheme_base; +extern object __glo_ceiling_scheme_base; +extern object __glo_truncate_scheme_base; +extern object __glo_round_scheme_base; +extern object __glo_exact_scheme_base; +extern object __glo_inexact_scheme_base; +extern object __glo_eof_91object_scheme_base; +extern object __glo_syntax_91error_scheme_base; +extern object __glo_bytevector_91copy_scheme_base; +extern object __glo_bytevector_91copy_67_scheme_base; +extern object __glo_utf8_91_125string_scheme_base; +extern object __glo_string_91_125utf8_scheme_base; +extern object __glo_denominator_scheme_base; +extern object __glo_numerator_scheme_base; +extern object __glo_parameterize_scheme_base; +extern object __glo_read_scheme_read; +extern object __glo_read_91all_scheme_read; +extern object __glo_include_scheme_read; +extern object __glo_include_91ci_scheme_read; +extern object __glo_display_scheme_write; +extern object __glo_write_scheme_write; +extern object __glo_write_91shared_scheme_write; +extern object __glo_write_91simple_scheme_write; +extern object __glo_current_91second_scheme_time; +extern object __glo_current_91jiffy_scheme_time; +extern object __glo_jiffies_91per_91second_scheme_time; +extern object __glo_string_123_127_191_191inline_191_191_scheme_base; +extern object __glo_string_121_127_191_191inline_191_191_scheme_base; +extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base; +extern object __glo_string_125_127_191_191inline_191_191_scheme_base; +extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base; +extern object __glo_not_191_191inline_191_191_scheme_base; +extern object __glo_zero_127_191_191inline_191_191_scheme_base; +extern object __glo_positive_127_191_191inline_191_191_scheme_base; +extern object __glo_negative_127_191_191inline_191_191_scheme_base; +extern object __glo_floor_191_191inline_191_191_scheme_base; +extern object __glo_ceiling_191_191inline_191_191_scheme_base; +extern object __glo_truncate_191_191inline_191_191_scheme_base; +extern object __glo_round_191_191inline_191_191_scheme_base; +extern object __glo_inexact_191_191inline_191_191_scheme_base; +extern object __glo_sqrt_191_191inline_191_191_scheme_base; +extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base; +extern object __glo_exact_127_191_191inline_191_191_scheme_base; +extern object __glo_denominator_191_191inline_191_191_scheme_base; +extern object __glo_numerator_191_191inline_191_191_scheme_base; +extern object __glo_quotient_191_191inline_191_191_scheme_base; +extern object __glo_square_191_191inline_191_191_scheme_base; +extern object __glo_eof_91object_191_191inline_191_191_scheme_base; +extern object __glo_in_91port_117get_91buf_191_191inline_191_191_scheme_read; +extern object __glo_in_91port_117get_91lnum_191_191inline_191_191_scheme_read; +extern object __glo_in_91port_117get_91cnum_191_191inline_191_191_scheme_read; +#include "cyclone/runtime.h" +#include "cyclone/runtime-main.h" +static void __lambda_93(void *data, int argc, closure _,object k_73116) ; +static void __lambda_92(void *data, int argc, object self_73254, object r_73117) ; +static void __lambda_91(void *data, int argc, closure _,object k_73120, object name_7347, object count_7346, object thunk_7345, object ok_127_7344) ; +static void __lambda_90(void *data, int argc, object self_73255, object rounded_7349) ; +static void __lambda_89(void *data, int argc, object self_73256, object rounded_7349) ; +static void __lambda_88(void *data, int argc, object self_73257, object k_73167, object x_7364) ; +static void __lambda_87(void *data, int argc, object self_73258, object r_73121) ; +static void __lambda_86(void *data, int argc, object self_73259, object r_73122) ; +static void __lambda_85(void *data, int argc, object self_73260, object r_73123) ; +static void __lambda_84(void *data, int argc, object self_73261, object r_73124) ; +static void __lambda_83(void *data, int argc, object self_73262, object r_73165) ; +static void __lambda_82(void *data, int argc, object self_73263, object r_73125) ; +static void __lambda_81(void *data, int argc, object self_73264, object j_95s_7351) ; +static void __lambda_80(void *data, int argc, object self_73265, object t0_7352) ; +static void __lambda_79(void *data, int argc, object self_73266, object j0_7353) ; +static void __lambda_78(void *data, int argc, object self_73267, object loop_7356) ; +static void __lambda_77(void *data, int argc, object self_73268, object loop_7356) ; +static void __lambda_76(void *data, int argc, object self_73269, object k_73131, object i_7358, object result_7357) ; +static void __lambda_75(void *data, int argc, object self_73270, object r_73135) ; +static void __lambda_74(void *data, int argc, object self_73271, object r_73160) ; +static void __lambda_73(void *data, int argc, object self_73272, object r_73161) ; +static void __lambda_72(void *data, int argc, object self_73273, object r_73162) ; +static void __lambda_71(void *data, int argc, object self_73274, object r_73164) ; +static void __lambda_70(void *data, int argc, object self_73275, object r_73163) ; +static void __lambda_69(void *data, int argc, object self_73276, object j1_7359) ; +static void __lambda_68(void *data, int argc, object self_73277, object t1_7360) ; +static void __lambda_67(void *data, int argc, object self_73278, object secs2_7363) ; +static void __lambda_66(void *data, int argc, object self_73279, object r_73142) ; +static void __lambda_65(void *data, int argc, object self_73280, object r_73143) ; +static void __lambda_64(void *data, int argc, object self_73281, object r_73144) ; +static void __lambda_63(void *data, int argc, object self_73282, object r_73145) ; +static void __lambda_62(void *data, int argc, object self_73283, object r_73146) ; +static void __lambda_61(void *data, int argc, object self_73284, object r_73147) ; +static void __lambda_60(void *data, int argc, object self_73285, object r_73148) ; +static void __lambda_59(void *data, int argc, object self_73286, object r_73149) ; +static void __lambda_58(void *data, int argc, object self_73287, object r_73157) ; +static void __lambda_57(void *data, int argc, object self_73288, object r_73150) ; +static void __lambda_56(void *data, int argc, object self_73289, object r_73151) ; +static void __lambda_55(void *data, int argc, object self_73290, object r_73152) ; +static void __lambda_54(void *data, int argc, object self_73291, object r_73153) ; +static void __lambda_53(void *data, int argc, object self_73292, object r_73154) ; +static void __lambda_52(void *data, int argc, object self_73293, object r_73155) ; +static void __lambda_51(void *data, int argc, object self_73294, object r_73156) ; +static void __lambda_50(void *data, int argc, object self_73295, object r_73136) ; +static void __lambda_49(void *data, int argc, object self_73296, object r_73134) ; +static void __lambda_48(void *data, int argc, object self_73297, object r_73129) ; +static void __lambda_47(void *data, int argc, closure _,object k_73172, object r_7366, object x_7365) ; +static void __lambda_46(void *data, int argc, object self_73298, object k_73175, object v_7368, object i_7367) ; +static void __lambda_45(void *data, int argc, object self_73299, object k_73177) ; +static void __lambda_44(void *data, int argc, object self_73300, object k_73183, object x_7369) ; +static void __lambda_43(void *data, int argc, object self_73301, object r_73178) ; +static void __lambda_42(void *data, int argc, object self_73302, object r_73179) ; +static void __lambda_41(void *data, int argc, object self_73303, object k_73180) ; +static void __lambda_40(void *data, int argc, closure _,object k_73186) ; +static void __lambda_39(void *data, int argc, object self_73304, object count_7370) ; +static void __lambda_38(void *data, int argc, object self_73305, object input1_7371) ; +static void __lambda_37(void *data, int argc, object self_73306, object output_7372) ; +static void __lambda_36(void *data, int argc, object self_73307, object s2_7373) ; +static void __lambda_35(void *data, int argc, object self_73308, object s1_7374) ; +static void __lambda_34(void *data, int argc, object self_73309, object r_73192) ; +static void __lambda_33(void *data, int argc, object self_73310, object k_73195, object result_7376) ; +static void __lambda_32(void *data, int argc, object self_73311, object k_73196) ; +static void __lambda_31(void *data, int argc, object self_73312, object r_73197) ; +static void __lambda_30(void *data, int argc, closure _,object k_73200, object n_7377) ; +static void __lambda_29(void *data, int argc, object self_73313, object matrix_7378) ; +static void __lambda_28(void *data, int argc, object self_73314, object i_7379) ; +static void __lambda_27(void *data, int argc, object self_73315, object loop_7380) ; +static void __lambda_26(void *data, int argc, object self_73316, object loop_7380) ; +static void __lambda_25(void *data, int argc, object self_73317, object k_73208, object i_7381) ; +static void __lambda_24(void *data, int argc, object self_73318, object r_73212) ; +static void __lambda_23(void *data, int argc, object self_73319, object r_73210) ; +static void __lambda_22(void *data, int argc, object self_73320, object r_73206) ; +static void __lambda_21(void *data, int argc, object self_73321, object r_73202) ; +static void __lambda_20(void *data, int argc, object self_73322, object r_73203) ; +static void __lambda_19(void *data, int argc, closure _,object k_73215, object matrix_7386, object r_7385, object i_7384, object step_7383, object n_7382) ; +static void __lambda_18(void *data, int argc, object self_73323, object loop1_7388) ; +static void __lambda_17(void *data, int argc, object self_73324, object loop1_7388) ; +static void __lambda_16(void *data, int argc, object self_73325, object k_73219, object y_7389) ; +static void __lambda_15(void *data, int argc, object self_73326, object r_73220) ; +static void __lambda_14(void *data, int argc, object self_73327, object loop2_7391) ; +static void __lambda_13(void *data, int argc, object self_73328, object loop2_7391) ; +static void __lambda_12(void *data, int argc, object self_73329, object k_73224, object x_7392) ; +static void __lambda_11(void *data, int argc, object self_73330, object r_73225) ; +static void __lambda_10(void *data, int argc, object self_73331, object r_73228) ; +static void __lambda_9(void *data, int argc, object self_73332, object r_73229) ; +static void __lambda_8(void *data, int argc, object self_73333, object r_73226) ; +static void __lambda_7(void *data, int argc, object self_73334, object r_73227) ; +static void __lambda_6(void *data, int argc, object self_73335, object r_73222) ; +static void __lambda_5(void *data, int argc, object self_73336, object r_73217) ; +static void __lambda_4(void *data, int argc, closure _,object k_73233, object r_7397, object i_7396, object step_7395, object x_7394, object y_7393) ; +static void __lambda_3(void *data, int argc, object self_73337, object loop_73105) ; +static void __lambda_2(void *data, int argc, object self_73338, object loop_73105) ; +static void __lambda_1(void *data, int argc, object self_73339, object k_73238, object zr_73108, object zi_73107, object c_73106) ; +static void __lambda_0(void *data, int argc, object self_73340, object r_73236) ; + +static void __lambda_93(void *data, int argc, closure _,object k_73116) { + Cyc_st_add(data, "mbrot.scm:this-scheme-implementation-name"); + +closureN_type c_73902; +c_73902.hdr.mark = gc_color_red; + c_73902.hdr.grayed = 0; +c_73902.tag = closureN_tag; + c_73902.fn = (function_type)__lambda_92; +c_73902.num_args = 1; +c_73902.num_elements = 1; +c_73902.elements = (object *)alloca(sizeof(object) * 1); +c_73902.elements[0] = k_73116; + +return_closcall1(data, __glo_Cyc_91version_scheme_base, &c_73902);; +} + +static void __lambda_92(void *data, int argc, object self_73254, object r_73117) { + +make_string(c_73908, "cyclone-"); + +object c_73907 = Cyc_string_append(data, ((closureN)self_73254)->elements[0],2,&c_73908, r_73117); +return_closcall1(data, ((closureN)self_73254)->elements[0], c_73907);; +} + +static void __lambda_91(void *data, int argc, closure _,object k_73120, object name_7347, object count_7346, object thunk_7345, object ok_127_7344) { + Cyc_st_add(data, "mbrot.scm:run-r7rs-benchmark"); + +closureN_type c_73716; +c_73716.hdr.mark = gc_color_red; + c_73716.hdr.grayed = 0; +c_73716.tag = closureN_tag; + c_73716.fn = (function_type)__lambda_90; +c_73716.num_args = 1; +c_73716.num_elements = 5; +c_73716.elements = (object *)alloca(sizeof(object) * 5); +c_73716.elements[0] = count_7346; +c_73716.elements[1] = k_73120; +c_73716.elements[2] = name_7347; +c_73716.elements[3] = ok_127_7344; +c_73716.elements[4] = thunk_7345; + +return_closcall1(data,(closure)&c_73716, boolean_f);; +} + +static void __lambda_90(void *data, int argc, object self_73255, object rounded_7349) { + +closureN_type c_73718; +c_73718.hdr.mark = gc_color_red; + c_73718.hdr.grayed = 0; +c_73718.tag = closureN_tag; + c_73718.fn = (function_type)__lambda_89; +c_73718.num_args = 1; +c_73718.num_elements = 5; +c_73718.elements = (object *)alloca(sizeof(object) * 5); +c_73718.elements[0] = ((closureN)self_73255)->elements[0]; +c_73718.elements[1] = ((closureN)self_73255)->elements[1]; +c_73718.elements[2] = ((closureN)self_73255)->elements[2]; +c_73718.elements[3] = ((closureN)self_73255)->elements[3]; +c_73718.elements[4] = ((closureN)self_73255)->elements[4]; + + +make_cell(c_73899,rounded_7349); +return_closcall1(data,(closure)&c_73718, &c_73899);; +} + +static void __lambda_89(void *data, int argc, object self_73256, object rounded_7349) { + +closureN_type c_73720; +c_73720.hdr.mark = gc_color_red; + c_73720.hdr.grayed = 0; +c_73720.tag = closureN_tag; + c_73720.fn = (function_type)__lambda_87; +c_73720.num_args = 1; +c_73720.num_elements = 6; +c_73720.elements = (object *)alloca(sizeof(object) * 6); +c_73720.elements[0] = ((closureN)self_73256)->elements[0]; +c_73720.elements[1] = ((closureN)self_73256)->elements[1]; +c_73720.elements[2] = ((closureN)self_73256)->elements[2]; +c_73720.elements[3] = ((closureN)self_73256)->elements[3]; +c_73720.elements[4] = rounded_7349; +c_73720.elements[5] = ((closureN)self_73256)->elements[4]; + + +mclosure0(c_73883, (function_type)__lambda_88);c_73883.num_args = 1; +return_closcall1(data,(closure)&c_73720, Cyc_set_cell(data, rounded_7349, &c_73883));; +} + +static void __lambda_88(void *data, int argc, object self_73257, object k_73167, object x_7364) { + +double_type local_73895; object c_73896 = Cyc_fast_mul(data,&local_73895,obj_int2obj(1000), x_7364); + +double_type local_73891; object c_73892 = ((inline_function_type) + ((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_73891,c_73896); + +double_type local_73887; object c_73888 = Cyc_fast_div(data,&local_73887,c_73892, obj_int2obj(1000)); +return_closcall1(data, k_73167, c_73888);; +} + +static void __lambda_87(void *data, int argc, object self_73258, object r_73121) { + +closureN_type c_73722; +c_73722.hdr.mark = gc_color_red; + c_73722.hdr.grayed = 0; +c_73722.tag = closureN_tag; + c_73722.fn = (function_type)__lambda_86; +c_73722.num_args = 1; +c_73722.num_elements = 6; +c_73722.elements = (object *)alloca(sizeof(object) * 6); +c_73722.elements[0] = ((closureN)self_73258)->elements[0]; +c_73722.elements[1] = ((closureN)self_73258)->elements[1]; +c_73722.elements[2] = ((closureN)self_73258)->elements[2]; +c_73722.elements[3] = ((closureN)self_73258)->elements[3]; +c_73722.elements[4] = ((closureN)self_73258)->elements[4]; +c_73722.elements[5] = ((closureN)self_73258)->elements[5]; + + +make_string(c_73880, "Running "); +return_closcall2(data, __glo_display_scheme_write, &c_73722, &c_73880);; +} + +static void __lambda_86(void *data, int argc, object self_73259, object r_73122) { + +closureN_type c_73724; +c_73724.hdr.mark = gc_color_red; + c_73724.hdr.grayed = 0; +c_73724.tag = closureN_tag; + c_73724.fn = (function_type)__lambda_85; +c_73724.num_args = 1; +c_73724.num_elements = 6; +c_73724.elements = (object *)alloca(sizeof(object) * 6); +c_73724.elements[0] = ((closureN)self_73259)->elements[0]; +c_73724.elements[1] = ((closureN)self_73259)->elements[1]; +c_73724.elements[2] = ((closureN)self_73259)->elements[2]; +c_73724.elements[3] = ((closureN)self_73259)->elements[3]; +c_73724.elements[4] = ((closureN)self_73259)->elements[4]; +c_73724.elements[5] = ((closureN)self_73259)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73724, ((closureN)self_73259)->elements[2]);; +} + +static void __lambda_85(void *data, int argc, object self_73260, object r_73123) { + +closureN_type c_73726; +c_73726.hdr.mark = gc_color_red; + c_73726.hdr.grayed = 0; +c_73726.tag = closureN_tag; + c_73726.fn = (function_type)__lambda_84; +c_73726.num_args = 1; +c_73726.num_elements = 6; +c_73726.elements = (object *)alloca(sizeof(object) * 6); +c_73726.elements[0] = ((closureN)self_73260)->elements[0]; +c_73726.elements[1] = ((closureN)self_73260)->elements[1]; +c_73726.elements[2] = ((closureN)self_73260)->elements[2]; +c_73726.elements[3] = ((closureN)self_73260)->elements[3]; +c_73726.elements[4] = ((closureN)self_73260)->elements[4]; +c_73726.elements[5] = ((closureN)self_73260)->elements[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73726);; +} + +static void __lambda_84(void *data, int argc, object self_73261, object r_73124) { + +closureN_type c_73728; +c_73728.hdr.mark = gc_color_red; + c_73728.hdr.grayed = 0; +c_73728.tag = closureN_tag; + c_73728.fn = (function_type)__lambda_83; +c_73728.num_args = 1; +c_73728.num_elements = 6; +c_73728.elements = (object *)alloca(sizeof(object) * 6); +c_73728.elements[0] = ((closureN)self_73261)->elements[0]; +c_73728.elements[1] = ((closureN)self_73261)->elements[1]; +c_73728.elements[2] = ((closureN)self_73261)->elements[2]; +c_73728.elements[3] = ((closureN)self_73261)->elements[3]; +c_73728.elements[4] = ((closureN)self_73261)->elements[4]; +c_73728.elements[5] = ((closureN)self_73261)->elements[5]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73728);; +} + +static void __lambda_83(void *data, int argc, object self_73262, object r_73165) { + +closureN_type c_73730; +c_73730.hdr.mark = gc_color_red; + c_73730.hdr.grayed = 0; +c_73730.tag = closureN_tag; + c_73730.fn = (function_type)__lambda_82; +c_73730.num_args = 1; +c_73730.num_elements = 6; +c_73730.elements = (object *)alloca(sizeof(object) * 6); +c_73730.elements[0] = ((closureN)self_73262)->elements[0]; +c_73730.elements[1] = ((closureN)self_73262)->elements[1]; +c_73730.elements[2] = ((closureN)self_73262)->elements[2]; +c_73730.elements[3] = ((closureN)self_73262)->elements[3]; +c_73730.elements[4] = ((closureN)self_73262)->elements[4]; +c_73730.elements[5] = ((closureN)self_73262)->elements[5]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73730, r_73165);; +} + +static void __lambda_82(void *data, int argc, object self_73263, object r_73125) { + +closureN_type c_73732; +c_73732.hdr.mark = gc_color_red; + c_73732.hdr.grayed = 0; +c_73732.tag = closureN_tag; + c_73732.fn = (function_type)__lambda_81; +c_73732.num_args = 1; +c_73732.num_elements = 6; +c_73732.elements = (object *)alloca(sizeof(object) * 6); +c_73732.elements[0] = ((closureN)self_73263)->elements[0]; +c_73732.elements[1] = ((closureN)self_73263)->elements[1]; +c_73732.elements[2] = ((closureN)self_73263)->elements[2]; +c_73732.elements[3] = ((closureN)self_73263)->elements[3]; +c_73732.elements[4] = ((closureN)self_73263)->elements[4]; +c_73732.elements[5] = ((closureN)self_73263)->elements[5]; + +return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_73732);; +} + +static void __lambda_81(void *data, int argc, object self_73264, object j_95s_7351) { + +closureN_type c_73734; +c_73734.hdr.mark = gc_color_red; + c_73734.hdr.grayed = 0; +c_73734.tag = closureN_tag; + c_73734.fn = (function_type)__lambda_80; +c_73734.num_args = 1; +c_73734.num_elements = 7; +c_73734.elements = (object *)alloca(sizeof(object) * 7); +c_73734.elements[0] = ((closureN)self_73264)->elements[0]; +c_73734.elements[1] = j_95s_7351; +c_73734.elements[2] = ((closureN)self_73264)->elements[1]; +c_73734.elements[3] = ((closureN)self_73264)->elements[2]; +c_73734.elements[4] = ((closureN)self_73264)->elements[3]; +c_73734.elements[5] = ((closureN)self_73264)->elements[4]; +c_73734.elements[6] = ((closureN)self_73264)->elements[5]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_73734);; +} + +static void __lambda_80(void *data, int argc, object self_73265, object t0_7352) { + +closureN_type c_73736; +c_73736.hdr.mark = gc_color_red; + c_73736.hdr.grayed = 0; +c_73736.tag = closureN_tag; + c_73736.fn = (function_type)__lambda_79; +c_73736.num_args = 1; +c_73736.num_elements = 8; +c_73736.elements = (object *)alloca(sizeof(object) * 8); +c_73736.elements[0] = ((closureN)self_73265)->elements[0]; +c_73736.elements[1] = ((closureN)self_73265)->elements[1]; +c_73736.elements[2] = ((closureN)self_73265)->elements[2]; +c_73736.elements[3] = ((closureN)self_73265)->elements[3]; +c_73736.elements[4] = ((closureN)self_73265)->elements[4]; +c_73736.elements[5] = ((closureN)self_73265)->elements[5]; +c_73736.elements[6] = t0_7352; +c_73736.elements[7] = ((closureN)self_73265)->elements[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73736);; +} + +static void __lambda_79(void *data, int argc, object self_73266, object j0_7353) { + +closureN_type c_73738; +c_73738.hdr.mark = gc_color_red; + c_73738.hdr.grayed = 0; +c_73738.tag = closureN_tag; + c_73738.fn = (function_type)__lambda_78; +c_73738.num_args = 1; +c_73738.num_elements = 9; +c_73738.elements = (object *)alloca(sizeof(object) * 9); +c_73738.elements[0] = ((closureN)self_73266)->elements[0]; +c_73738.elements[1] = ((closureN)self_73266)->elements[1]; +c_73738.elements[2] = j0_7353; +c_73738.elements[3] = ((closureN)self_73266)->elements[2]; +c_73738.elements[4] = ((closureN)self_73266)->elements[3]; +c_73738.elements[5] = ((closureN)self_73266)->elements[4]; +c_73738.elements[6] = ((closureN)self_73266)->elements[5]; +c_73738.elements[7] = ((closureN)self_73266)->elements[6]; +c_73738.elements[8] = ((closureN)self_73266)->elements[7]; + +return_closcall1(data,(closure)&c_73738, boolean_f);; +} + +static void __lambda_78(void *data, int argc, object self_73267, object loop_7356) { + +closureN_type c_73740; +c_73740.hdr.mark = gc_color_red; + c_73740.hdr.grayed = 0; +c_73740.tag = closureN_tag; + c_73740.fn = (function_type)__lambda_77; +c_73740.num_args = 1; +c_73740.num_elements = 9; +c_73740.elements = (object *)alloca(sizeof(object) * 9); +c_73740.elements[0] = ((closureN)self_73267)->elements[0]; +c_73740.elements[1] = ((closureN)self_73267)->elements[1]; +c_73740.elements[2] = ((closureN)self_73267)->elements[2]; +c_73740.elements[3] = ((closureN)self_73267)->elements[3]; +c_73740.elements[4] = ((closureN)self_73267)->elements[4]; +c_73740.elements[5] = ((closureN)self_73267)->elements[5]; +c_73740.elements[6] = ((closureN)self_73267)->elements[6]; +c_73740.elements[7] = ((closureN)self_73267)->elements[7]; +c_73740.elements[8] = ((closureN)self_73267)->elements[8]; + + +make_cell(c_73878,loop_7356); +return_closcall1(data,(closure)&c_73740, &c_73878);; +} + +static void __lambda_77(void *data, int argc, object self_73268, object loop_7356) { + +closureN_type c_73742; +c_73742.hdr.mark = gc_color_red; + c_73742.hdr.grayed = 0; +c_73742.tag = closureN_tag; + c_73742.fn = (function_type)__lambda_48; +c_73742.num_args = 1; +c_73742.num_elements = 2; +c_73742.elements = (object *)alloca(sizeof(object) * 2); +c_73742.elements[0] = ((closureN)self_73268)->elements[3]; +c_73742.elements[1] = loop_7356; + + +closureN_type c_73750; +c_73750.hdr.mark = gc_color_red; + c_73750.hdr.grayed = 0; +c_73750.tag = closureN_tag; + c_73750.fn = (function_type)__lambda_76; +c_73750.num_args = 2; +c_73750.num_elements = 9; +c_73750.elements = (object *)alloca(sizeof(object) * 9); +c_73750.elements[0] = ((closureN)self_73268)->elements[0]; +c_73750.elements[1] = ((closureN)self_73268)->elements[1]; +c_73750.elements[2] = ((closureN)self_73268)->elements[2]; +c_73750.elements[3] = loop_7356; +c_73750.elements[4] = ((closureN)self_73268)->elements[4]; +c_73750.elements[5] = ((closureN)self_73268)->elements[5]; +c_73750.elements[6] = ((closureN)self_73268)->elements[6]; +c_73750.elements[7] = ((closureN)self_73268)->elements[7]; +c_73750.elements[8] = ((closureN)self_73268)->elements[8]; + +return_closcall1(data,(closure)&c_73742, Cyc_set_cell(data, loop_7356, &c_73750));; +} + +static void __lambda_76(void *data, int argc, object self_73269, object k_73131, object i_7358, object result_7357) { + object c_73753 = Cyc_num_fast_lt_op(data,i_7358, ((closureN)self_73269)->elements[0]); +if( (boolean_f != c_73753) ){ + +closureN_type c_73757; +c_73757.hdr.mark = gc_color_red; + c_73757.hdr.grayed = 0; +c_73757.tag = closureN_tag; + c_73757.fn = (function_type)__lambda_49; +c_73757.num_args = 1; +c_73757.num_elements = 3; +c_73757.elements = (object *)alloca(sizeof(object) * 3); +c_73757.elements[0] = i_7358; +c_73757.elements[1] = k_73131; +c_73757.elements[2] = ((closureN)self_73269)->elements[3]; + +return_closcall1(data, ((closureN)self_73269)->elements[8], &c_73757); +} else { + +closureN_type c_73770; +c_73770.hdr.mark = gc_color_red; + c_73770.hdr.grayed = 0; +c_73770.tag = closureN_tag; + c_73770.fn = (function_type)__lambda_75; +c_73770.num_args = 1; +c_73770.num_elements = 7; +c_73770.elements = (object *)alloca(sizeof(object) * 7); +c_73770.elements[0] = ((closureN)self_73269)->elements[1]; +c_73770.elements[1] = ((closureN)self_73269)->elements[2]; +c_73770.elements[2] = k_73131; +c_73770.elements[3] = ((closureN)self_73269)->elements[4]; +c_73770.elements[4] = result_7357; +c_73770.elements[5] = ((closureN)self_73269)->elements[6]; +c_73770.elements[6] = ((closureN)self_73269)->elements[7]; + +return_closcall2(data, ((closureN)self_73269)->elements[5], &c_73770, result_7357);} +; +} + +static void __lambda_75(void *data, int argc, object self_73270, object r_73135) { + if( (boolean_f != r_73135) ){ + +closureN_type c_73772; +c_73772.hdr.mark = gc_color_red; + c_73772.hdr.grayed = 0; +c_73772.tag = closureN_tag; + c_73772.fn = (function_type)__lambda_69; +c_73772.num_args = 1; +c_73772.num_elements = 7; +c_73772.elements = (object *)alloca(sizeof(object) * 7); +c_73772.elements[0] = ((closureN)self_73270)->elements[0]; +c_73772.elements[1] = ((closureN)self_73270)->elements[1]; +c_73772.elements[2] = ((closureN)self_73270)->elements[2]; +c_73772.elements[3] = ((closureN)self_73270)->elements[3]; +c_73772.elements[4] = ((closureN)self_73270)->elements[4]; +c_73772.elements[5] = ((closureN)self_73270)->elements[5]; +c_73772.elements[6] = ((closureN)self_73270)->elements[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73772); +} else { + +closureN_type c_73862; +c_73862.hdr.mark = gc_color_red; + c_73862.hdr.grayed = 0; +c_73862.tag = closureN_tag; + c_73862.fn = (function_type)__lambda_74; +c_73862.num_args = 1; +c_73862.num_elements = 2; +c_73862.elements = (object *)alloca(sizeof(object) * 2); +c_73862.elements[0] = ((closureN)self_73270)->elements[2]; +c_73862.elements[1] = ((closureN)self_73270)->elements[4]; + + +make_string(c_73875, "ERROR: returned incorrect result: "); +return_closcall2(data, __glo_display_scheme_write, &c_73862, &c_73875);} +; +} + +static void __lambda_74(void *data, int argc, object self_73271, object r_73160) { + +closureN_type c_73864; +c_73864.hdr.mark = gc_color_red; + c_73864.hdr.grayed = 0; +c_73864.tag = closureN_tag; + c_73864.fn = (function_type)__lambda_73; +c_73864.num_args = 1; +c_73864.num_elements = 2; +c_73864.elements = (object *)alloca(sizeof(object) * 2); +c_73864.elements[0] = ((closureN)self_73271)->elements[0]; +c_73864.elements[1] = ((closureN)self_73271)->elements[1]; + +return_closcall2(data, __glo_write_scheme_write, &c_73864, ((closureN)self_73271)->elements[1]);; +} + +static void __lambda_73(void *data, int argc, object self_73272, object r_73161) { + +closureN_type c_73866; +c_73866.hdr.mark = gc_color_red; + c_73866.hdr.grayed = 0; +c_73866.tag = closureN_tag; + c_73866.fn = (function_type)__lambda_72; +c_73866.num_args = 1; +c_73866.num_elements = 2; +c_73866.elements = (object *)alloca(sizeof(object) * 2); +c_73866.elements[0] = ((closureN)self_73272)->elements[0]; +c_73866.elements[1] = ((closureN)self_73272)->elements[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73866);; +} + +static void __lambda_72(void *data, int argc, object self_73273, object r_73162) { + +closureN_type c_73868; +c_73868.hdr.mark = gc_color_red; + c_73868.hdr.grayed = 0; +c_73868.tag = closureN_tag; + c_73868.fn = (function_type)__lambda_71; +c_73868.num_args = 1; +c_73868.num_elements = 2; +c_73868.elements = (object *)alloca(sizeof(object) * 2); +c_73868.elements[0] = ((closureN)self_73273)->elements[0]; +c_73868.elements[1] = ((closureN)self_73273)->elements[1]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73868);; +} + +static void __lambda_71(void *data, int argc, object self_73274, object r_73164) { + +closureN_type c_73870; +c_73870.hdr.mark = gc_color_red; + c_73870.hdr.grayed = 0; +c_73870.tag = closureN_tag; + c_73870.fn = (function_type)__lambda_70; +c_73870.num_args = 1; +c_73870.num_elements = 2; +c_73870.elements = (object *)alloca(sizeof(object) * 2); +c_73870.elements[0] = ((closureN)self_73274)->elements[0]; +c_73870.elements[1] = ((closureN)self_73274)->elements[1]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73870, r_73164);; +} + +static void __lambda_70(void *data, int argc, object self_73275, object r_73163) { + return_closcall1(data, ((closureN)self_73275)->elements[0], ((closureN)self_73275)->elements[1]);; +} + +static void __lambda_69(void *data, int argc, object self_73276, object j1_7359) { + +closureN_type c_73774; +c_73774.hdr.mark = gc_color_red; + c_73774.hdr.grayed = 0; +c_73774.tag = closureN_tag; + c_73774.fn = (function_type)__lambda_68; +c_73774.num_args = 1; +c_73774.num_elements = 8; +c_73774.elements = (object *)alloca(sizeof(object) * 8); +c_73774.elements[0] = ((closureN)self_73276)->elements[0]; +c_73774.elements[1] = ((closureN)self_73276)->elements[1]; +c_73774.elements[2] = j1_7359; +c_73774.elements[3] = ((closureN)self_73276)->elements[2]; +c_73774.elements[4] = ((closureN)self_73276)->elements[3]; +c_73774.elements[5] = ((closureN)self_73276)->elements[4]; +c_73774.elements[6] = ((closureN)self_73276)->elements[5]; +c_73774.elements[7] = ((closureN)self_73276)->elements[6]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_73774);; +} + +static void __lambda_68(void *data, int argc, object self_73277, object t1_7360) { + +closureN_type c_73779; +c_73779.hdr.mark = gc_color_red; + c_73779.hdr.grayed = 0; +c_73779.tag = closureN_tag; + c_73779.fn = (function_type)__lambda_67; +c_73779.num_args = 1; +c_73779.num_elements = 6; +c_73779.elements = (object *)alloca(sizeof(object) * 6); +c_73779.elements[0] = ((closureN)self_73277)->elements[0]; +c_73779.elements[1] = ((closureN)self_73277)->elements[1]; +c_73779.elements[2] = ((closureN)self_73277)->elements[2]; +c_73779.elements[3] = ((closureN)self_73277)->elements[3]; +c_73779.elements[4] = ((closureN)self_73277)->elements[4]; +c_73779.elements[5] = ((closureN)self_73277)->elements[5]; + + +double_type local_73858; object c_73859 = Cyc_fast_sub(data,&local_73858,t1_7360, ((closureN)self_73277)->elements[7]); +return_closcall2(data, car(((closureN)self_73277)->elements[6]), &c_73779, c_73859);; +} + +static void __lambda_67(void *data, int argc, object self_73278, object secs2_7363) { + +closureN_type c_73781; +c_73781.hdr.mark = gc_color_red; + c_73781.hdr.grayed = 0; +c_73781.tag = closureN_tag; + c_73781.fn = (function_type)__lambda_66; +c_73781.num_args = 1; +c_73781.num_elements = 7; +c_73781.elements = (object *)alloca(sizeof(object) * 7); +c_73781.elements[0] = ((closureN)self_73278)->elements[0]; +c_73781.elements[1] = ((closureN)self_73278)->elements[1]; +c_73781.elements[2] = ((closureN)self_73278)->elements[2]; +c_73781.elements[3] = ((closureN)self_73278)->elements[3]; +c_73781.elements[4] = ((closureN)self_73278)->elements[4]; +c_73781.elements[5] = ((closureN)self_73278)->elements[5]; +c_73781.elements[6] = secs2_7363; + + +make_string(c_73855, "Elapsed time: "); +return_closcall2(data, __glo_display_scheme_write, &c_73781, &c_73855);; +} + +static void __lambda_66(void *data, int argc, object self_73279, object r_73142) { + +closureN_type c_73783; +c_73783.hdr.mark = gc_color_red; + c_73783.hdr.grayed = 0; +c_73783.tag = closureN_tag; + c_73783.fn = (function_type)__lambda_65; +c_73783.num_args = 1; +c_73783.num_elements = 7; +c_73783.elements = (object *)alloca(sizeof(object) * 7); +c_73783.elements[0] = ((closureN)self_73279)->elements[0]; +c_73783.elements[1] = ((closureN)self_73279)->elements[1]; +c_73783.elements[2] = ((closureN)self_73279)->elements[2]; +c_73783.elements[3] = ((closureN)self_73279)->elements[3]; +c_73783.elements[4] = ((closureN)self_73279)->elements[4]; +c_73783.elements[5] = ((closureN)self_73279)->elements[5]; +c_73783.elements[6] = ((closureN)self_73279)->elements[6]; + + +double_type local_73850; object c_73851 = Cyc_fast_sub(data,&local_73850,((closureN)self_73279)->elements[2], ((closureN)self_73279)->elements[1]); + +double_type local_73846; object c_73847 = Cyc_fast_div(data,&local_73846,c_73851, ((closureN)self_73279)->elements[0]); + +double_type local_73842; object c_73843 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73842,c_73847); +return_closcall2(data, __glo_write_scheme_write, &c_73783, c_73843);; +} + +static void __lambda_65(void *data, int argc, object self_73280, object r_73143) { + +closureN_type c_73785; +c_73785.hdr.mark = gc_color_red; + c_73785.hdr.grayed = 0; +c_73785.tag = closureN_tag; + c_73785.fn = (function_type)__lambda_64; +c_73785.num_args = 1; +c_73785.num_elements = 7; +c_73785.elements = (object *)alloca(sizeof(object) * 7); +c_73785.elements[0] = ((closureN)self_73280)->elements[0]; +c_73785.elements[1] = ((closureN)self_73280)->elements[1]; +c_73785.elements[2] = ((closureN)self_73280)->elements[2]; +c_73785.elements[3] = ((closureN)self_73280)->elements[3]; +c_73785.elements[4] = ((closureN)self_73280)->elements[4]; +c_73785.elements[5] = ((closureN)self_73280)->elements[5]; +c_73785.elements[6] = ((closureN)self_73280)->elements[6]; + + +make_string(c_73839, " seconds ("); +return_closcall2(data, __glo_display_scheme_write, &c_73785, &c_73839);; +} + +static void __lambda_64(void *data, int argc, object self_73281, object r_73144) { + +closureN_type c_73787; +c_73787.hdr.mark = gc_color_red; + c_73787.hdr.grayed = 0; +c_73787.tag = closureN_tag; + c_73787.fn = (function_type)__lambda_63; +c_73787.num_args = 1; +c_73787.num_elements = 6; +c_73787.elements = (object *)alloca(sizeof(object) * 6); +c_73787.elements[0] = ((closureN)self_73281)->elements[0]; +c_73787.elements[1] = ((closureN)self_73281)->elements[1]; +c_73787.elements[2] = ((closureN)self_73281)->elements[2]; +c_73787.elements[3] = ((closureN)self_73281)->elements[3]; +c_73787.elements[4] = ((closureN)self_73281)->elements[4]; +c_73787.elements[5] = ((closureN)self_73281)->elements[5]; + +return_closcall2(data, __glo_write_scheme_write, &c_73787, ((closureN)self_73281)->elements[6]);; +} + +static void __lambda_63(void *data, int argc, object self_73282, object r_73145) { + +closureN_type c_73789; +c_73789.hdr.mark = gc_color_red; + c_73789.hdr.grayed = 0; +c_73789.tag = closureN_tag; + c_73789.fn = (function_type)__lambda_62; +c_73789.num_args = 1; +c_73789.num_elements = 6; +c_73789.elements = (object *)alloca(sizeof(object) * 6); +c_73789.elements[0] = ((closureN)self_73282)->elements[0]; +c_73789.elements[1] = ((closureN)self_73282)->elements[1]; +c_73789.elements[2] = ((closureN)self_73282)->elements[2]; +c_73789.elements[3] = ((closureN)self_73282)->elements[3]; +c_73789.elements[4] = ((closureN)self_73282)->elements[4]; +c_73789.elements[5] = ((closureN)self_73282)->elements[5]; + + +make_string(c_73837, ") for "); +return_closcall2(data, __glo_display_scheme_write, &c_73789, &c_73837);; +} + +static void __lambda_62(void *data, int argc, object self_73283, object r_73146) { + +closureN_type c_73791; +c_73791.hdr.mark = gc_color_red; + c_73791.hdr.grayed = 0; +c_73791.tag = closureN_tag; + c_73791.fn = (function_type)__lambda_61; +c_73791.num_args = 1; +c_73791.num_elements = 6; +c_73791.elements = (object *)alloca(sizeof(object) * 6); +c_73791.elements[0] = ((closureN)self_73283)->elements[0]; +c_73791.elements[1] = ((closureN)self_73283)->elements[1]; +c_73791.elements[2] = ((closureN)self_73283)->elements[2]; +c_73791.elements[3] = ((closureN)self_73283)->elements[3]; +c_73791.elements[4] = ((closureN)self_73283)->elements[4]; +c_73791.elements[5] = ((closureN)self_73283)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73791, ((closureN)self_73283)->elements[4]);; +} + +static void __lambda_61(void *data, int argc, object self_73284, object r_73147) { + +closureN_type c_73793; +c_73793.hdr.mark = gc_color_red; + c_73793.hdr.grayed = 0; +c_73793.tag = closureN_tag; + c_73793.fn = (function_type)__lambda_60; +c_73793.num_args = 1; +c_73793.num_elements = 6; +c_73793.elements = (object *)alloca(sizeof(object) * 6); +c_73793.elements[0] = ((closureN)self_73284)->elements[0]; +c_73793.elements[1] = ((closureN)self_73284)->elements[1]; +c_73793.elements[2] = ((closureN)self_73284)->elements[2]; +c_73793.elements[3] = ((closureN)self_73284)->elements[3]; +c_73793.elements[4] = ((closureN)self_73284)->elements[4]; +c_73793.elements[5] = ((closureN)self_73284)->elements[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73793);; +} + +static void __lambda_60(void *data, int argc, object self_73285, object r_73148) { + +closureN_type c_73795; +c_73795.hdr.mark = gc_color_red; + c_73795.hdr.grayed = 0; +c_73795.tag = closureN_tag; + c_73795.fn = (function_type)__lambda_59; +c_73795.num_args = 1; +c_73795.num_elements = 6; +c_73795.elements = (object *)alloca(sizeof(object) * 6); +c_73795.elements[0] = ((closureN)self_73285)->elements[0]; +c_73795.elements[1] = ((closureN)self_73285)->elements[1]; +c_73795.elements[2] = ((closureN)self_73285)->elements[2]; +c_73795.elements[3] = ((closureN)self_73285)->elements[3]; +c_73795.elements[4] = ((closureN)self_73285)->elements[4]; +c_73795.elements[5] = ((closureN)self_73285)->elements[5]; + + +make_string(c_73835, "+!CSVLINE!+"); +return_closcall2(data, __glo_display_scheme_write, &c_73795, &c_73835);; +} + +static void __lambda_59(void *data, int argc, object self_73286, object r_73149) { + +closureN_type c_73797; +c_73797.hdr.mark = gc_color_red; + c_73797.hdr.grayed = 0; +c_73797.tag = closureN_tag; + c_73797.fn = (function_type)__lambda_58; +c_73797.num_args = 1; +c_73797.num_elements = 6; +c_73797.elements = (object *)alloca(sizeof(object) * 6); +c_73797.elements[0] = ((closureN)self_73286)->elements[0]; +c_73797.elements[1] = ((closureN)self_73286)->elements[1]; +c_73797.elements[2] = ((closureN)self_73286)->elements[2]; +c_73797.elements[3] = ((closureN)self_73286)->elements[3]; +c_73797.elements[4] = ((closureN)self_73286)->elements[4]; +c_73797.elements[5] = ((closureN)self_73286)->elements[5]; + +return_closcall1(data, __glo_this_91scheme_91implementation_91name, &c_73797);; +} + +static void __lambda_58(void *data, int argc, object self_73287, object r_73157) { + +closureN_type c_73799; +c_73799.hdr.mark = gc_color_red; + c_73799.hdr.grayed = 0; +c_73799.tag = closureN_tag; + c_73799.fn = (function_type)__lambda_57; +c_73799.num_args = 1; +c_73799.num_elements = 6; +c_73799.elements = (object *)alloca(sizeof(object) * 6); +c_73799.elements[0] = ((closureN)self_73287)->elements[0]; +c_73799.elements[1] = ((closureN)self_73287)->elements[1]; +c_73799.elements[2] = ((closureN)self_73287)->elements[2]; +c_73799.elements[3] = ((closureN)self_73287)->elements[3]; +c_73799.elements[4] = ((closureN)self_73287)->elements[4]; +c_73799.elements[5] = ((closureN)self_73287)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73799, r_73157);; +} + +static void __lambda_57(void *data, int argc, object self_73288, object r_73150) { + +closureN_type c_73801; +c_73801.hdr.mark = gc_color_red; + c_73801.hdr.grayed = 0; +c_73801.tag = closureN_tag; + c_73801.fn = (function_type)__lambda_56; +c_73801.num_args = 1; +c_73801.num_elements = 6; +c_73801.elements = (object *)alloca(sizeof(object) * 6); +c_73801.elements[0] = ((closureN)self_73288)->elements[0]; +c_73801.elements[1] = ((closureN)self_73288)->elements[1]; +c_73801.elements[2] = ((closureN)self_73288)->elements[2]; +c_73801.elements[3] = ((closureN)self_73288)->elements[3]; +c_73801.elements[4] = ((closureN)self_73288)->elements[4]; +c_73801.elements[5] = ((closureN)self_73288)->elements[5]; + + +make_string(c_73834, ","); +return_closcall2(data, __glo_display_scheme_write, &c_73801, &c_73834);; +} + +static void __lambda_56(void *data, int argc, object self_73289, object r_73151) { + +closureN_type c_73803; +c_73803.hdr.mark = gc_color_red; + c_73803.hdr.grayed = 0; +c_73803.tag = closureN_tag; + c_73803.fn = (function_type)__lambda_55; +c_73803.num_args = 1; +c_73803.num_elements = 5; +c_73803.elements = (object *)alloca(sizeof(object) * 5); +c_73803.elements[0] = ((closureN)self_73289)->elements[0]; +c_73803.elements[1] = ((closureN)self_73289)->elements[1]; +c_73803.elements[2] = ((closureN)self_73289)->elements[2]; +c_73803.elements[3] = ((closureN)self_73289)->elements[3]; +c_73803.elements[4] = ((closureN)self_73289)->elements[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_73803, ((closureN)self_73289)->elements[4]);; +} + +static void __lambda_55(void *data, int argc, object self_73290, object r_73152) { + +closureN_type c_73805; +c_73805.hdr.mark = gc_color_red; + c_73805.hdr.grayed = 0; +c_73805.tag = closureN_tag; + c_73805.fn = (function_type)__lambda_54; +c_73805.num_args = 1; +c_73805.num_elements = 5; +c_73805.elements = (object *)alloca(sizeof(object) * 5); +c_73805.elements[0] = ((closureN)self_73290)->elements[0]; +c_73805.elements[1] = ((closureN)self_73290)->elements[1]; +c_73805.elements[2] = ((closureN)self_73290)->elements[2]; +c_73805.elements[3] = ((closureN)self_73290)->elements[3]; +c_73805.elements[4] = ((closureN)self_73290)->elements[4]; + + +make_string(c_73832, ","); +return_closcall2(data, __glo_display_scheme_write, &c_73805, &c_73832);; +} + +static void __lambda_54(void *data, int argc, object self_73291, object r_73153) { + +closureN_type c_73807; +c_73807.hdr.mark = gc_color_red; + c_73807.hdr.grayed = 0; +c_73807.tag = closureN_tag; + c_73807.fn = (function_type)__lambda_53; +c_73807.num_args = 1; +c_73807.num_elements = 2; +c_73807.elements = (object *)alloca(sizeof(object) * 2); +c_73807.elements[0] = ((closureN)self_73291)->elements[3]; +c_73807.elements[1] = ((closureN)self_73291)->elements[4]; + + +double_type local_73827; object c_73828 = Cyc_fast_sub(data,&local_73827,((closureN)self_73291)->elements[2], ((closureN)self_73291)->elements[1]); + +double_type local_73823; object c_73824 = Cyc_fast_div(data,&local_73823,c_73828, ((closureN)self_73291)->elements[0]); + +double_type local_73819; object c_73820 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73819,c_73824); +return_closcall2(data, __glo_display_scheme_write, &c_73807, c_73820);; +} + +static void __lambda_53(void *data, int argc, object self_73292, object r_73154) { + +closureN_type c_73809; +c_73809.hdr.mark = gc_color_red; + c_73809.hdr.grayed = 0; +c_73809.tag = closureN_tag; + c_73809.fn = (function_type)__lambda_52; +c_73809.num_args = 1; +c_73809.num_elements = 2; +c_73809.elements = (object *)alloca(sizeof(object) * 2); +c_73809.elements[0] = ((closureN)self_73292)->elements[0]; +c_73809.elements[1] = ((closureN)self_73292)->elements[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_73809);; +} + +static void __lambda_52(void *data, int argc, object self_73293, object r_73155) { + +closureN_type c_73811; +c_73811.hdr.mark = gc_color_red; + c_73811.hdr.grayed = 0; +c_73811.tag = closureN_tag; + c_73811.fn = (function_type)__lambda_51; +c_73811.num_args = 1; +c_73811.num_elements = 2; +c_73811.elements = (object *)alloca(sizeof(object) * 2); +c_73811.elements[0] = ((closureN)self_73293)->elements[0]; +c_73811.elements[1] = ((closureN)self_73293)->elements[1]; + +return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73811);; +} + +static void __lambda_51(void *data, int argc, object self_73294, object r_73156) { + +closureN_type c_73813; +c_73813.hdr.mark = gc_color_red; + c_73813.hdr.grayed = 0; +c_73813.tag = closureN_tag; + c_73813.fn = (function_type)__lambda_50; +c_73813.num_args = 1; +c_73813.num_elements = 2; +c_73813.elements = (object *)alloca(sizeof(object) * 2); +c_73813.elements[0] = ((closureN)self_73294)->elements[0]; +c_73813.elements[1] = ((closureN)self_73294)->elements[1]; + +return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73813, r_73156);; +} + +static void __lambda_50(void *data, int argc, object self_73295, object r_73136) { + return_closcall1(data, ((closureN)self_73295)->elements[0], ((closureN)self_73295)->elements[1]);; +} + +static void __lambda_49(void *data, int argc, object self_73296, object r_73134) { + +double_type local_73765; object c_73766 = Cyc_fast_sum(data,&local_73765,((closureN)self_73296)->elements[0], obj_int2obj(1)); +return_closcall3(data, car(((closureN)self_73296)->elements[2]), ((closureN)self_73296)->elements[1], c_73766, r_73134);; +} + +static void __lambda_48(void *data, int argc, object self_73297, object r_73129) { + return_closcall3(data, car(((closureN)self_73297)->elements[1]), ((closureN)self_73297)->elements[0], obj_int2obj(0), boolean_f);; +} + +static void __lambda_47(void *data, int argc, closure _,object k_73172, object r_7366, object x_7365) { + Cyc_st_add(data, "mbrot.scm:hide"); + +closureN_type c_73692; +c_73692.hdr.mark = gc_color_red; + c_73692.hdr.grayed = 0; +c_73692.tag = closureN_tag; + c_73692.fn = (function_type)__lambda_45; +c_73692.num_args = 0; +c_73692.num_elements = 1; +c_73692.elements = (object *)alloca(sizeof(object) * 1); +c_73692.elements[0] = r_7366; + + +closureN_type c_73709; +c_73709.hdr.mark = gc_color_red; + c_73709.hdr.grayed = 0; +c_73709.tag = closureN_tag; + c_73709.fn = (function_type)__lambda_46; +c_73709.num_args = 2; +c_73709.num_elements = 1; +c_73709.elements = (object *)alloca(sizeof(object) * 1); +c_73709.elements[0] = x_7365; + +return_closcall3(data, __glo_call_91with_91values_scheme_base, k_73172, &c_73692, &c_73709);; +} + +static void __lambda_46(void *data, int argc, object self_73298, object k_73175, object v_7368, object i_7367) { + return_closcall2(data, Cyc_vector_ref(data, v_7368, i_7367), k_73175, ((closureN)self_73298)->elements[0]);; +} + +static void __lambda_45(void *data, int argc, object self_73299, object k_73177) { + +closureN_type c_73694; +c_73694.hdr.mark = gc_color_red; + c_73694.hdr.grayed = 0; +c_73694.tag = closureN_tag; + c_73694.fn = (function_type)__lambda_43; +c_73694.num_args = 1; +c_73694.num_elements = 2; +c_73694.elements = (object *)alloca(sizeof(object) * 2); +c_73694.elements[0] = k_73177; +c_73694.elements[1] = ((closureN)self_73299)->elements[0]; + + +mclosure0(c_73707, (function_type)__lambda_44);c_73707.num_args = 1; +return_closcall3(data, __glo_vector_scheme_base, &c_73694, __glo_values_scheme_base, &c_73707);; +} + +static void __lambda_44(void *data, int argc, object self_73300, object k_73183, object x_7369) { + return_closcall1(data, k_73183, x_7369);; +} + +static void __lambda_43(void *data, int argc, object self_73301, object r_73178) { + +closureN_type c_73696; +c_73696.hdr.mark = gc_color_red; + c_73696.hdr.grayed = 0; +c_73696.tag = closureN_tag; + c_73696.fn = (function_type)__lambda_41; +c_73696.num_args = 0; +c_73696.num_elements = 1; +c_73696.elements = (object *)alloca(sizeof(object) * 1); +c_73696.elements[0] = ((closureN)self_73301)->elements[1]; + + +closureN_type c_73703; +c_73703.hdr.mark = gc_color_red; + c_73703.hdr.grayed = 0; +c_73703.tag = closureN_tag; + c_73703.fn = (function_type)__lambda_42; +c_73703.num_args = 1; +c_73703.num_elements = 2; +c_73703.elements = (object *)alloca(sizeof(object) * 2); +c_73703.elements[0] = ((closureN)self_73301)->elements[0]; +c_73703.elements[1] = r_73178; + +return_closcall1(data,(closure)&c_73696, &c_73703);; +} + +static void __lambda_42(void *data, int argc, object self_73302, object r_73179) { + return_closcall3(data, __glo_values_scheme_base, ((closureN)self_73302)->elements[0], ((closureN)self_73302)->elements[1], r_73179);; +} + +static void __lambda_41(void *data, int argc, object self_73303, object k_73180) { + object c_73699 = Cyc_num_fast_lt_op(data,((closureN)self_73303)->elements[0], obj_int2obj(100)); +if( (boolean_f != c_73699) ){ + return_closcall1(data, k_73180, obj_int2obj(0)); +} else { + return_closcall1(data, k_73180, obj_int2obj(1));} +; +} + +static void __lambda_40(void *data, int argc, closure _,object k_73186) { + Cyc_st_add(data, "mbrot.scm:main"); + +closureN_type c_73648; +c_73648.hdr.mark = gc_color_red; + c_73648.hdr.grayed = 0; +c_73648.tag = closureN_tag; + c_73648.fn = (function_type)__lambda_39; +c_73648.num_args = 1; +c_73648.num_elements = 1; +c_73648.elements = (object *)alloca(sizeof(object) * 1); +c_73648.elements[0] = k_73186; + +return_closcall1(data, __glo_read_scheme_read, &c_73648);; +} + +static void __lambda_39(void *data, int argc, object self_73304, object count_7370) { + +closureN_type c_73650; +c_73650.hdr.mark = gc_color_red; + c_73650.hdr.grayed = 0; +c_73650.tag = closureN_tag; + c_73650.fn = (function_type)__lambda_38; +c_73650.num_args = 1; +c_73650.num_elements = 2; +c_73650.elements = (object *)alloca(sizeof(object) * 2); +c_73650.elements[0] = count_7370; +c_73650.elements[1] = ((closureN)self_73304)->elements[0]; + +return_closcall1(data, __glo_read_scheme_read, &c_73650);; +} + +static void __lambda_38(void *data, int argc, object self_73305, object input1_7371) { + +closureN_type c_73652; +c_73652.hdr.mark = gc_color_red; + c_73652.hdr.grayed = 0; +c_73652.tag = closureN_tag; + c_73652.fn = (function_type)__lambda_37; +c_73652.num_args = 1; +c_73652.num_elements = 3; +c_73652.elements = (object *)alloca(sizeof(object) * 3); +c_73652.elements[0] = ((closureN)self_73305)->elements[0]; +c_73652.elements[1] = input1_7371; +c_73652.elements[2] = ((closureN)self_73305)->elements[1]; + +return_closcall1(data, __glo_read_scheme_read, &c_73652);; +} + +static void __lambda_37(void *data, int argc, object self_73306, object output_7372) { + +closureN_type c_73654; +c_73654.hdr.mark = gc_color_red; + c_73654.hdr.grayed = 0; +c_73654.tag = closureN_tag; + c_73654.fn = (function_type)__lambda_36; +c_73654.num_args = 1; +c_73654.num_elements = 4; +c_73654.elements = (object *)alloca(sizeof(object) * 4); +c_73654.elements[0] = ((closureN)self_73306)->elements[0]; +c_73654.elements[1] = ((closureN)self_73306)->elements[1]; +c_73654.elements[2] = ((closureN)self_73306)->elements[2]; +c_73654.elements[3] = output_7372; + + +object c_73688 = Cyc_number2string2(data,(closure)&c_73654,1,((closureN)self_73306)->elements[0]); +return_closcall1(data,(closure)&c_73654, c_73688);; +} + +static void __lambda_36(void *data, int argc, object self_73307, object s2_7373) { + +closureN_type c_73656; +c_73656.hdr.mark = gc_color_red; + c_73656.hdr.grayed = 0; +c_73656.tag = closureN_tag; + c_73656.fn = (function_type)__lambda_35; +c_73656.num_args = 1; +c_73656.num_elements = 5; +c_73656.elements = (object *)alloca(sizeof(object) * 5); +c_73656.elements[0] = ((closureN)self_73307)->elements[0]; +c_73656.elements[1] = ((closureN)self_73307)->elements[1]; +c_73656.elements[2] = ((closureN)self_73307)->elements[2]; +c_73656.elements[3] = ((closureN)self_73307)->elements[3]; +c_73656.elements[4] = s2_7373; + + +object c_73684 = Cyc_number2string2(data,(closure)&c_73656,1,((closureN)self_73307)->elements[1]); +return_closcall1(data,(closure)&c_73656, c_73684);; +} + +static void __lambda_35(void *data, int argc, object self_73308, object s1_7374) { + +closureN_type c_73658; +c_73658.hdr.mark = gc_color_red; + c_73658.hdr.grayed = 0; +c_73658.tag = closureN_tag; + c_73658.fn = (function_type)__lambda_34; +c_73658.num_args = 1; +c_73658.num_elements = 4; +c_73658.elements = (object *)alloca(sizeof(object) * 4); +c_73658.elements[0] = ((closureN)self_73308)->elements[0]; +c_73658.elements[1] = ((closureN)self_73308)->elements[1]; +c_73658.elements[2] = ((closureN)self_73308)->elements[2]; +c_73658.elements[3] = ((closureN)self_73308)->elements[3]; + + +make_string(c_73678, "mbrot"); + +make_string(c_73679, ":"); + +make_string(c_73680, ":"); + +object c_73677 = Cyc_string_append(data,(closure)&c_73658,5,&c_73678, &c_73679, s1_7374, &c_73680, ((closureN)self_73308)->elements[4]); +return_closcall1(data,(closure)&c_73658, c_73677);; +} + +static void __lambda_34(void *data, int argc, object self_73309, object r_73192) { + +closureN_type c_73662; +c_73662.hdr.mark = gc_color_red; + c_73662.hdr.grayed = 0; +c_73662.tag = closureN_tag; + c_73662.fn = (function_type)__lambda_32; +c_73662.num_args = 0; +c_73662.num_elements = 2; +c_73662.elements = (object *)alloca(sizeof(object) * 2); +c_73662.elements[0] = ((closureN)self_73309)->elements[0]; +c_73662.elements[1] = ((closureN)self_73309)->elements[1]; + + +closureN_type c_73669; +c_73669.hdr.mark = gc_color_red; + c_73669.hdr.grayed = 0; +c_73669.tag = closureN_tag; + c_73669.fn = (function_type)__lambda_33; +c_73669.num_args = 1; +c_73669.num_elements = 1; +c_73669.elements = (object *)alloca(sizeof(object) * 1); +c_73669.elements[0] = ((closureN)self_73309)->elements[3]; + +return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_73309)->elements[2], r_73192, ((closureN)self_73309)->elements[0], &c_73662, &c_73669);; +} + +static void __lambda_33(void *data, int argc, object self_73310, object k_73195, object result_7376) { + +object c_73673 = Cyc_num_fast_eq_op(data,result_7376, ((closureN)self_73310)->elements[0]); +return_closcall1(data, k_73195, c_73673);; +} + +static void __lambda_32(void *data, int argc, object self_73311, object k_73196) { + +closureN_type c_73664; +c_73664.hdr.mark = gc_color_red; + c_73664.hdr.grayed = 0; +c_73664.tag = closureN_tag; + c_73664.fn = (function_type)__lambda_31; +c_73664.num_args = 1; +c_73664.num_elements = 1; +c_73664.elements = (object *)alloca(sizeof(object) * 1); +c_73664.elements[0] = k_73196; + +return_closcall3(data, __glo_hide, &c_73664, ((closureN)self_73311)->elements[0], ((closureN)self_73311)->elements[1]);; +} + +static void __lambda_31(void *data, int argc, object self_73312, object r_73197) { + return_closcall2(data, __glo_test, ((closureN)self_73312)->elements[0], r_73197);; +} + +static void __lambda_30(void *data, int argc, closure _,object k_73200, object n_7377) { + Cyc_st_add(data, "mbrot.scm:test"); + +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_29; +c_73577.num_args = 1; +c_73577.num_elements = 2; +c_73577.elements = (object *)alloca(sizeof(object) * 2); +c_73577.elements[0] = k_73200; +c_73577.elements[1] = n_7377; + + +object c_73645 = Cyc_make_vector(data,(closure)&c_73577,1,n_7377); +return_closcall1(data,(closure)&c_73577, c_73645);; +} + +static void __lambda_29(void *data, int argc, object self_73313, object matrix_7378) { + +closureN_type c_73579; +c_73579.hdr.mark = gc_color_red; + c_73579.hdr.grayed = 0; +c_73579.tag = closureN_tag; + c_73579.fn = (function_type)__lambda_28; +c_73579.num_args = 1; +c_73579.num_elements = 3; +c_73579.elements = (object *)alloca(sizeof(object) * 3); +c_73579.elements[0] = ((closureN)self_73313)->elements[0]; +c_73579.elements[1] = matrix_7378; +c_73579.elements[2] = ((closureN)self_73313)->elements[1]; + + +double_type local_73640; object c_73641 = Cyc_fast_sub(data,&local_73640,((closureN)self_73313)->elements[1], obj_int2obj(1)); +return_closcall1(data,(closure)&c_73579, c_73641);; +} + +static void __lambda_28(void *data, int argc, object self_73314, object i_7379) { + +closureN_type c_73581; +c_73581.hdr.mark = gc_color_red; + c_73581.hdr.grayed = 0; +c_73581.tag = closureN_tag; + c_73581.fn = (function_type)__lambda_27; +c_73581.num_args = 1; +c_73581.num_elements = 4; +c_73581.elements = (object *)alloca(sizeof(object) * 4); +c_73581.elements[0] = i_7379; +c_73581.elements[1] = ((closureN)self_73314)->elements[0]; +c_73581.elements[2] = ((closureN)self_73314)->elements[1]; +c_73581.elements[3] = ((closureN)self_73314)->elements[2]; + +return_closcall1(data,(closure)&c_73581, boolean_f);; +} + +static void __lambda_27(void *data, int argc, object self_73315, object loop_7380) { + +closureN_type c_73583; +c_73583.hdr.mark = gc_color_red; + c_73583.hdr.grayed = 0; +c_73583.tag = closureN_tag; + c_73583.fn = (function_type)__lambda_26; +c_73583.num_args = 1; +c_73583.num_elements = 4; +c_73583.elements = (object *)alloca(sizeof(object) * 4); +c_73583.elements[0] = ((closureN)self_73315)->elements[0]; +c_73583.elements[1] = ((closureN)self_73315)->elements[1]; +c_73583.elements[2] = ((closureN)self_73315)->elements[2]; +c_73583.elements[3] = ((closureN)self_73315)->elements[3]; + + +make_cell(c_73637,loop_7380); +return_closcall1(data,(closure)&c_73583, &c_73637);; +} + +static void __lambda_26(void *data, int argc, object self_73316, object loop_7380) { + +closureN_type c_73585; +c_73585.hdr.mark = gc_color_red; + c_73585.hdr.grayed = 0; +c_73585.tag = closureN_tag; + c_73585.fn = (function_type)__lambda_22; +c_73585.num_args = 1; +c_73585.num_elements = 5; +c_73585.elements = (object *)alloca(sizeof(object) * 5); +c_73585.elements[0] = ((closureN)self_73316)->elements[0]; +c_73585.elements[1] = ((closureN)self_73316)->elements[1]; +c_73585.elements[2] = loop_7380; +c_73585.elements[3] = ((closureN)self_73316)->elements[2]; +c_73585.elements[4] = ((closureN)self_73316)->elements[3]; + + +closureN_type c_73608; +c_73608.hdr.mark = gc_color_red; + c_73608.hdr.grayed = 0; +c_73608.tag = closureN_tag; + c_73608.fn = (function_type)__lambda_25; +c_73608.num_args = 1; +c_73608.num_elements = 3; +c_73608.elements = (object *)alloca(sizeof(object) * 3); +c_73608.elements[0] = loop_7380; +c_73608.elements[1] = ((closureN)self_73316)->elements[2]; +c_73608.elements[2] = ((closureN)self_73316)->elements[3]; + +return_closcall1(data,(closure)&c_73585, Cyc_set_cell(data, loop_7380, &c_73608));; +} + +static void __lambda_25(void *data, int argc, object self_73317, object k_73208, object i_7381) { + object c_73611 = Cyc_num_fast_gte_op(data,i_7381, obj_int2obj(0)); +if( (boolean_f != c_73611) ){ + +closureN_type c_73613; +c_73613.hdr.mark = gc_color_red; + c_73613.hdr.grayed = 0; +c_73613.tag = closureN_tag; + c_73613.fn = (function_type)__lambda_24; +c_73613.num_args = 1; +c_73613.num_elements = 4; +c_73613.elements = (object *)alloca(sizeof(object) * 4); +c_73613.elements[0] = i_7381; +c_73613.elements[1] = k_73208; +c_73613.elements[2] = ((closureN)self_73317)->elements[0]; +c_73613.elements[3] = ((closureN)self_73317)->elements[1]; + + +object c_73632 = Cyc_make_vector(data,(closure)&c_73613,1,((closureN)self_73317)->elements[2]); +return_closcall1(data,(closure)&c_73613, c_73632); +} else { + return_closcall1(data, k_73208, boolean_f);} +; +} + +static void __lambda_24(void *data, int argc, object self_73318, object r_73212) { + +closureN_type c_73615; +c_73615.hdr.mark = gc_color_red; + c_73615.hdr.grayed = 0; +c_73615.tag = closureN_tag; + c_73615.fn = (function_type)__lambda_23; +c_73615.num_args = 1; +c_73615.num_elements = 3; +c_73615.elements = (object *)alloca(sizeof(object) * 3); +c_73615.elements[0] = ((closureN)self_73318)->elements[0]; +c_73615.elements[1] = ((closureN)self_73318)->elements[1]; +c_73615.elements[2] = ((closureN)self_73318)->elements[2]; + +return_closcall1(data,(closure)&c_73615, Cyc_vector_set(data, ((closureN)self_73318)->elements[3], ((closureN)self_73318)->elements[0], r_73212));; +} + +static void __lambda_23(void *data, int argc, object self_73319, object r_73210) { + +double_type local_73623; object c_73624 = Cyc_fast_sub(data,&local_73623,((closureN)self_73319)->elements[0], obj_int2obj(1)); +return_closcall2(data, car(((closureN)self_73319)->elements[2]), ((closureN)self_73319)->elements[1], c_73624);; +} + +static void __lambda_22(void *data, int argc, object self_73320, object r_73206) { + +closureN_type c_73590; +c_73590.hdr.mark = gc_color_red; + c_73590.hdr.grayed = 0; +c_73590.tag = closureN_tag; + c_73590.fn = (function_type)__lambda_21; +c_73590.num_args = 1; +c_73590.num_elements = 3; +c_73590.elements = (object *)alloca(sizeof(object) * 3); +c_73590.elements[0] = ((closureN)self_73320)->elements[1]; +c_73590.elements[1] = ((closureN)self_73320)->elements[3]; +c_73590.elements[2] = ((closureN)self_73320)->elements[4]; + +return_closcall2(data, car(((closureN)self_73320)->elements[2]), &c_73590, ((closureN)self_73320)->elements[0]);; +} + +static void __lambda_21(void *data, int argc, object self_73321, object r_73202) { + +closureN_type c_73592; +c_73592.hdr.mark = gc_color_red; + c_73592.hdr.grayed = 0; +c_73592.tag = closureN_tag; + c_73592.fn = (function_type)__lambda_20; +c_73592.num_args = 1; +c_73592.num_elements = 2; +c_73592.elements = (object *)alloca(sizeof(object) * 2); +c_73592.elements[0] = ((closureN)self_73321)->elements[0]; +c_73592.elements[1] = ((closureN)self_73321)->elements[1]; + + +make_double(c_73601, -1.0); + +make_double(c_73602, -0.5); + +make_double(c_73603, 0.005); +return_closcall6(data, __glo_mbrot, &c_73592, ((closureN)self_73321)->elements[1], &c_73601, &c_73602, &c_73603, ((closureN)self_73321)->elements[2]);; +} + +static void __lambda_20(void *data, int argc, object self_73322, object r_73203) { + return_closcall1(data, ((closureN)self_73322)->elements[0], Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_73322)->elements[1], obj_int2obj(0)), obj_int2obj(0)));; +} + +static void __lambda_19(void *data, int argc, closure _,object k_73215, object matrix_7386, object r_7385, object i_7384, object step_7383, object n_7382) { + Cyc_st_add(data, "mbrot.scm:mbrot"); + +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_18; +c_73479.num_args = 1; +c_73479.num_elements = 6; +c_73479.elements = (object *)alloca(sizeof(object) * 6); +c_73479.elements[0] = i_7384; +c_73479.elements[1] = k_73215; +c_73479.elements[2] = matrix_7386; +c_73479.elements[3] = n_7382; +c_73479.elements[4] = r_7385; +c_73479.elements[5] = step_7383; + +return_closcall1(data,(closure)&c_73479, boolean_f);; +} + +static void __lambda_18(void *data, int argc, object self_73323, object loop1_7388) { + +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_17; +c_73481.num_args = 1; +c_73481.num_elements = 6; +c_73481.elements = (object *)alloca(sizeof(object) * 6); +c_73481.elements[0] = ((closureN)self_73323)->elements[0]; +c_73481.elements[1] = ((closureN)self_73323)->elements[1]; +c_73481.elements[2] = ((closureN)self_73323)->elements[2]; +c_73481.elements[3] = ((closureN)self_73323)->elements[3]; +c_73481.elements[4] = ((closureN)self_73323)->elements[4]; +c_73481.elements[5] = ((closureN)self_73323)->elements[5]; + + +make_cell(c_73574,loop1_7388); +return_closcall1(data,(closure)&c_73481, &c_73574);; +} + +static void __lambda_17(void *data, int argc, object self_73324, object loop1_7388) { + +closureN_type c_73483; +c_73483.hdr.mark = gc_color_red; + c_73483.hdr.grayed = 0; +c_73483.tag = closureN_tag; + c_73483.fn = (function_type)__lambda_5; +c_73483.num_args = 1; +c_73483.num_elements = 3; +c_73483.elements = (object *)alloca(sizeof(object) * 3); +c_73483.elements[0] = ((closureN)self_73324)->elements[1]; +c_73483.elements[1] = loop1_7388; +c_73483.elements[2] = ((closureN)self_73324)->elements[3]; + + +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_16; +c_73496.num_args = 1; +c_73496.num_elements = 6; +c_73496.elements = (object *)alloca(sizeof(object) * 6); +c_73496.elements[0] = ((closureN)self_73324)->elements[0]; +c_73496.elements[1] = loop1_7388; +c_73496.elements[2] = ((closureN)self_73324)->elements[2]; +c_73496.elements[3] = ((closureN)self_73324)->elements[3]; +c_73496.elements[4] = ((closureN)self_73324)->elements[4]; +c_73496.elements[5] = ((closureN)self_73324)->elements[5]; + +return_closcall1(data,(closure)&c_73483, Cyc_set_cell(data, loop1_7388, &c_73496));; +} + +static void __lambda_16(void *data, int argc, object self_73325, object k_73219, object y_7389) { + +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_15; +c_73498.num_args = 1; +c_73498.num_elements = 8; +c_73498.elements = (object *)alloca(sizeof(object) * 8); +c_73498.elements[0] = ((closureN)self_73325)->elements[0]; +c_73498.elements[1] = k_73219; +c_73498.elements[2] = ((closureN)self_73325)->elements[1]; +c_73498.elements[3] = ((closureN)self_73325)->elements[2]; +c_73498.elements[4] = ((closureN)self_73325)->elements[3]; +c_73498.elements[5] = ((closureN)self_73325)->elements[4]; +c_73498.elements[6] = ((closureN)self_73325)->elements[5]; +c_73498.elements[7] = y_7389; + + +object c_73571 = Cyc_num_fast_gte_op(data,y_7389, obj_int2obj(0)); +return_closcall1(data,(closure)&c_73498, c_73571);; +} + +static void __lambda_15(void *data, int argc, object self_73326, object r_73220) { + if( (boolean_f != r_73220) ){ + +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_14; +c_73500.num_args = 1; +c_73500.num_elements = 8; +c_73500.elements = (object *)alloca(sizeof(object) * 8); +c_73500.elements[0] = ((closureN)self_73326)->elements[0]; +c_73500.elements[1] = ((closureN)self_73326)->elements[1]; +c_73500.elements[2] = ((closureN)self_73326)->elements[2]; +c_73500.elements[3] = ((closureN)self_73326)->elements[3]; +c_73500.elements[4] = ((closureN)self_73326)->elements[4]; +c_73500.elements[5] = ((closureN)self_73326)->elements[5]; +c_73500.elements[6] = ((closureN)self_73326)->elements[6]; +c_73500.elements[7] = ((closureN)self_73326)->elements[7]; + +return_closcall1(data,(closure)&c_73500, boolean_f); +} else { + return_closcall1(data, ((closureN)self_73326)->elements[1], boolean_f);} +; +} + +static void __lambda_14(void *data, int argc, object self_73327, object loop2_7391) { + +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_13; +c_73502.num_args = 1; +c_73502.num_elements = 8; +c_73502.elements = (object *)alloca(sizeof(object) * 8); +c_73502.elements[0] = ((closureN)self_73327)->elements[0]; +c_73502.elements[1] = ((closureN)self_73327)->elements[1]; +c_73502.elements[2] = ((closureN)self_73327)->elements[2]; +c_73502.elements[3] = ((closureN)self_73327)->elements[3]; +c_73502.elements[4] = ((closureN)self_73327)->elements[4]; +c_73502.elements[5] = ((closureN)self_73327)->elements[5]; +c_73502.elements[6] = ((closureN)self_73327)->elements[6]; +c_73502.elements[7] = ((closureN)self_73327)->elements[7]; + + +make_cell(c_73566,loop2_7391); +return_closcall1(data,(closure)&c_73502, &c_73566);; +} + +static void __lambda_13(void *data, int argc, object self_73328, object loop2_7391) { + +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_6; +c_73504.num_args = 1; +c_73504.num_elements = 3; +c_73504.elements = (object *)alloca(sizeof(object) * 3); +c_73504.elements[0] = ((closureN)self_73328)->elements[1]; +c_73504.elements[1] = loop2_7391; +c_73504.elements[2] = ((closureN)self_73328)->elements[4]; + + +closureN_type c_73517; +c_73517.hdr.mark = gc_color_red; + c_73517.hdr.grayed = 0; +c_73517.tag = closureN_tag; + c_73517.fn = (function_type)__lambda_12; +c_73517.num_args = 1; +c_73517.num_elements = 7; +c_73517.elements = (object *)alloca(sizeof(object) * 7); +c_73517.elements[0] = ((closureN)self_73328)->elements[0]; +c_73517.elements[1] = ((closureN)self_73328)->elements[2]; +c_73517.elements[2] = loop2_7391; +c_73517.elements[3] = ((closureN)self_73328)->elements[3]; +c_73517.elements[4] = ((closureN)self_73328)->elements[5]; +c_73517.elements[5] = ((closureN)self_73328)->elements[6]; +c_73517.elements[6] = ((closureN)self_73328)->elements[7]; + +return_closcall1(data,(closure)&c_73504, Cyc_set_cell(data, loop2_7391, &c_73517));; +} + +static void __lambda_12(void *data, int argc, object self_73329, object k_73224, object x_7392) { + +closureN_type c_73519; +c_73519.hdr.mark = gc_color_red; + c_73519.hdr.grayed = 0; +c_73519.tag = closureN_tag; + c_73519.fn = (function_type)__lambda_11; +c_73519.num_args = 1; +c_73519.num_elements = 9; +c_73519.elements = (object *)alloca(sizeof(object) * 9); +c_73519.elements[0] = ((closureN)self_73329)->elements[0]; +c_73519.elements[1] = k_73224; +c_73519.elements[2] = ((closureN)self_73329)->elements[1]; +c_73519.elements[3] = ((closureN)self_73329)->elements[2]; +c_73519.elements[4] = ((closureN)self_73329)->elements[3]; +c_73519.elements[5] = ((closureN)self_73329)->elements[4]; +c_73519.elements[6] = ((closureN)self_73329)->elements[5]; +c_73519.elements[7] = x_7392; +c_73519.elements[8] = ((closureN)self_73329)->elements[6]; + + +object c_73563 = Cyc_num_fast_gte_op(data,x_7392, obj_int2obj(0)); +return_closcall1(data,(closure)&c_73519, c_73563);; +} + +static void __lambda_11(void *data, int argc, object self_73330, object r_73225) { + if( (boolean_f != r_73225) ){ + +closureN_type c_73521; +c_73521.hdr.mark = gc_color_red; + c_73521.hdr.grayed = 0; +c_73521.tag = closureN_tag; + c_73521.fn = (function_type)__lambda_10; +c_73521.num_args = 1; +c_73521.num_elements = 7; +c_73521.elements = (object *)alloca(sizeof(object) * 7); +c_73521.elements[0] = ((closureN)self_73330)->elements[0]; +c_73521.elements[1] = ((closureN)self_73330)->elements[1]; +c_73521.elements[2] = ((closureN)self_73330)->elements[3]; +c_73521.elements[3] = ((closureN)self_73330)->elements[5]; +c_73521.elements[4] = ((closureN)self_73330)->elements[6]; +c_73521.elements[5] = ((closureN)self_73330)->elements[7]; +c_73521.elements[6] = ((closureN)self_73330)->elements[8]; + +return_closcall1(data,(closure)&c_73521, Cyc_vector_ref(data, ((closureN)self_73330)->elements[4], ((closureN)self_73330)->elements[7])); +} else { + +double_type local_73558; object c_73559 = Cyc_fast_sub(data,&local_73558,((closureN)self_73330)->elements[8], obj_int2obj(1)); +return_closcall2(data, car(((closureN)self_73330)->elements[2]), ((closureN)self_73330)->elements[1], c_73559);} +; +} + +static void __lambda_10(void *data, int argc, object self_73331, object r_73228) { + +closureN_type c_73523; +c_73523.hdr.mark = gc_color_red; + c_73523.hdr.grayed = 0; +c_73523.tag = closureN_tag; + c_73523.fn = (function_type)__lambda_9; +c_73523.num_args = 1; +c_73523.num_elements = 5; +c_73523.elements = (object *)alloca(sizeof(object) * 5); +c_73523.elements[0] = ((closureN)self_73331)->elements[1]; +c_73523.elements[1] = ((closureN)self_73331)->elements[2]; +c_73523.elements[2] = r_73228; +c_73523.elements[3] = ((closureN)self_73331)->elements[5]; +c_73523.elements[4] = ((closureN)self_73331)->elements[6]; + +return_closcall6(data, __glo_count, &c_73523, ((closureN)self_73331)->elements[3], ((closureN)self_73331)->elements[0], ((closureN)self_73331)->elements[4], ((closureN)self_73331)->elements[5], ((closureN)self_73331)->elements[6]);; +} + +static void __lambda_9(void *data, int argc, object self_73332, object r_73229) { + +closureN_type c_73525; +c_73525.hdr.mark = gc_color_red; + c_73525.hdr.grayed = 0; +c_73525.tag = closureN_tag; + c_73525.fn = (function_type)__lambda_8; +c_73525.num_args = 1; +c_73525.num_elements = 3; +c_73525.elements = (object *)alloca(sizeof(object) * 3); +c_73525.elements[0] = ((closureN)self_73332)->elements[0]; +c_73525.elements[1] = ((closureN)self_73332)->elements[1]; +c_73525.elements[2] = ((closureN)self_73332)->elements[3]; + +return_closcall1(data,(closure)&c_73525, Cyc_vector_set(data, ((closureN)self_73332)->elements[2], ((closureN)self_73332)->elements[4], r_73229));; +} + +static void __lambda_8(void *data, int argc, object self_73333, object r_73226) { + +closureN_type c_73527; +c_73527.hdr.mark = gc_color_red; + c_73527.hdr.grayed = 0; +c_73527.tag = closureN_tag; + c_73527.fn = (function_type)__lambda_7; +c_73527.num_args = 1; +c_73527.num_elements = 2; +c_73527.elements = (object *)alloca(sizeof(object) * 2); +c_73527.elements[0] = ((closureN)self_73333)->elements[0]; +c_73527.elements[1] = ((closureN)self_73333)->elements[1]; + + +double_type local_73535; object c_73536 = Cyc_fast_sub(data,&local_73535,((closureN)self_73333)->elements[2], obj_int2obj(1)); +return_closcall1(data,(closure)&c_73527, c_73536);; +} + +static void __lambda_7(void *data, int argc, object self_73334, object r_73227) { + return_closcall2(data, car(((closureN)self_73334)->elements[1]), ((closureN)self_73334)->elements[0], r_73227);; +} + +static void __lambda_6(void *data, int argc, object self_73335, object r_73222) { + +double_type local_73512; object c_73513 = Cyc_fast_sub(data,&local_73512,((closureN)self_73335)->elements[2], obj_int2obj(1)); +return_closcall2(data, car(((closureN)self_73335)->elements[1]), ((closureN)self_73335)->elements[0], c_73513);; +} + +static void __lambda_5(void *data, int argc, object self_73336, object r_73217) { + +double_type local_73491; object c_73492 = Cyc_fast_sub(data,&local_73491,((closureN)self_73336)->elements[2], obj_int2obj(1)); +return_closcall2(data, car(((closureN)self_73336)->elements[1]), ((closureN)self_73336)->elements[0], c_73492);; +} + +static void __lambda_4(void *data, int argc, closure _,object k_73233, object r_7397, object i_7396, object step_7395, object x_7394, object y_7393) { + Cyc_st_add(data, "mbrot.scm:count"); + +closureN_type c_73343; +c_73343.hdr.mark = gc_color_red; + c_73343.hdr.grayed = 0; +c_73343.tag = closureN_tag; + c_73343.fn = (function_type)__lambda_3; +c_73343.num_args = 1; +c_73343.num_elements = 6; +c_73343.elements = (object *)alloca(sizeof(object) * 6); +c_73343.elements[0] = i_7396; +c_73343.elements[1] = k_73233; +c_73343.elements[2] = r_7397; +c_73343.elements[3] = step_7395; +c_73343.elements[4] = x_7394; +c_73343.elements[5] = y_7393; + +return_closcall1(data,(closure)&c_73343, boolean_f);; +} + +static void __lambda_3(void *data, int argc, object self_73337, object loop_73105) { + +closureN_type c_73345; +c_73345.hdr.mark = gc_color_red; + c_73345.hdr.grayed = 0; +c_73345.tag = closureN_tag; + c_73345.fn = (function_type)__lambda_2; +c_73345.num_args = 1; +c_73345.num_elements = 6; +c_73345.elements = (object *)alloca(sizeof(object) * 6); +c_73345.elements[0] = ((closureN)self_73337)->elements[0]; +c_73345.elements[1] = ((closureN)self_73337)->elements[1]; +c_73345.elements[2] = ((closureN)self_73337)->elements[2]; +c_73345.elements[3] = ((closureN)self_73337)->elements[3]; +c_73345.elements[4] = ((closureN)self_73337)->elements[4]; +c_73345.elements[5] = ((closureN)self_73337)->elements[5]; + + +make_cell(c_73476,loop_73105); +return_closcall1(data,(closure)&c_73345, &c_73476);; +} + +static void __lambda_2(void *data, int argc, object self_73338, object loop_73105) { + +closureN_type c_73347; +c_73347.hdr.mark = gc_color_red; + c_73347.hdr.grayed = 0; +c_73347.tag = closureN_tag; + c_73347.fn = (function_type)__lambda_0; +c_73347.num_args = 1; +c_73347.num_elements = 7; +c_73347.elements = (object *)alloca(sizeof(object) * 7); +c_73347.elements[0] = ((closureN)self_73338)->elements[0]; +c_73347.elements[1] = ((closureN)self_73338)->elements[1]; +c_73347.elements[2] = loop_73105; +c_73347.elements[3] = ((closureN)self_73338)->elements[2]; +c_73347.elements[4] = ((closureN)self_73338)->elements[3]; +c_73347.elements[5] = ((closureN)self_73338)->elements[4]; +c_73347.elements[6] = ((closureN)self_73338)->elements[5]; + + +closureN_type c_73385; +c_73385.hdr.mark = gc_color_red; + c_73385.hdr.grayed = 0; +c_73385.tag = closureN_tag; + c_73385.fn = (function_type)__lambda_1; +c_73385.num_args = 3; +c_73385.num_elements = 6; +c_73385.elements = (object *)alloca(sizeof(object) * 6); +c_73385.elements[0] = ((closureN)self_73338)->elements[0]; +c_73385.elements[1] = loop_73105; +c_73385.elements[2] = ((closureN)self_73338)->elements[2]; +c_73385.elements[3] = ((closureN)self_73338)->elements[3]; +c_73385.elements[4] = ((closureN)self_73338)->elements[4]; +c_73385.elements[5] = ((closureN)self_73338)->elements[5]; + +return_closcall1(data,(closure)&c_73347, Cyc_set_cell(data, loop_73105, &c_73385));; +} + +static void __lambda_1(void *data, int argc, object self_73339, object k_73238, object zr_73108, object zi_73107, object c_73106) { + object c_73388 = Cyc_num_fast_eq_op(data,c_73106, obj_int2obj(64)); +if( (boolean_f != c_73388) ){ + return_closcall1(data, k_73238, c_73106); +} else { + double_type local_73399; object c_73400 = Cyc_fast_mul(data,&local_73399,zr_73108, zr_73108); + double_type local_73403; object c_73404 = Cyc_fast_mul(data,&local_73403,zi_73107, zi_73107); + double_type local_73395; object c_73396 = Cyc_fast_sum(data,&local_73395,c_73400, c_73404); + make_double(c_73405, 16.0); + object c_73392 = Cyc_num_fast_gt_op(data,c_73396, &c_73405); +if( (boolean_f != c_73392) ){ + return_closcall1(data, k_73238, c_73106); +} else { + +double_type local_73421; object c_73422 = Cyc_fast_mul(data,&local_73421,zr_73108, zr_73108); + +double_type local_73425; object c_73426 = Cyc_fast_mul(data,&local_73425,zi_73107, zi_73107); + +double_type local_73417; object c_73418 = Cyc_fast_sub(data,&local_73417,c_73422, c_73426); + +double_type local_73438; object c_73439 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73438,((closureN)self_73339)->elements[4]); + +double_type local_73434; object c_73435 = Cyc_fast_mul(data,&local_73434,c_73439, ((closureN)self_73339)->elements[3]); + +double_type local_73429; object c_73430 = Cyc_fast_sum(data,&local_73429,((closureN)self_73339)->elements[2], c_73435); + +double_type local_73413; object c_73414 = Cyc_fast_sum(data,&local_73413,c_73418, c_73430); + +make_double(c_73450, 2.0); + +double_type local_73453; object c_73454 = Cyc_fast_mul(data,&local_73453,zr_73108, zi_73107); + +double_type local_73448; object c_73449 = Cyc_fast_mul(data,&local_73448,&c_73450, c_73454); + +double_type local_73466; object c_73467 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73466,((closureN)self_73339)->elements[5]); + +double_type local_73462; object c_73463 = Cyc_fast_mul(data,&local_73462,c_73467, ((closureN)self_73339)->elements[3]); + +double_type local_73457; object c_73458 = Cyc_fast_sum(data,&local_73457,((closureN)self_73339)->elements[0], c_73463); + +double_type local_73444; object c_73445 = Cyc_fast_sum(data,&local_73444,c_73449, c_73458); + +double_type local_73472; object c_73473 = Cyc_fast_sum(data,&local_73472,c_73106, obj_int2obj(1)); +return_closcall4(data, car(((closureN)self_73339)->elements[1]), k_73238, c_73414, c_73445, c_73473);} +} +; +} + +static void __lambda_0(void *data, int argc, object self_73340, object r_73236) { + +double_type local_73364; object c_73365 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73364,((closureN)self_73340)->elements[5]); + +double_type local_73360; object c_73361 = Cyc_fast_mul(data,&local_73360,c_73365, ((closureN)self_73340)->elements[4]); + +double_type local_73355; object c_73356 = Cyc_fast_sum(data,&local_73355,((closureN)self_73340)->elements[3], c_73361); + +double_type local_73379; object c_73380 = ((inline_function_type) + ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73379,((closureN)self_73340)->elements[6]); + +double_type local_73375; object c_73376 = Cyc_fast_mul(data,&local_73375,c_73380, ((closureN)self_73340)->elements[4]); + +double_type local_73370; object c_73371 = Cyc_fast_sum(data,&local_73370,((closureN)self_73340)->elements[0], c_73376); +return_closcall4(data, car(((closureN)self_73340)->elements[2]), ((closureN)self_73340)->elements[1], c_73356, c_73371, obj_int2obj(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_test); + add_global((object *) &__glo_mbrot); + add_global((object *) &__glo_count); + mclosure0(c_73900, (function_type)__lambda_93);c_73900.num_args = 0; + __glo_this_91scheme_91implementation_91name = &c_73900; + mclosure0(c_73714, (function_type)__lambda_91);c_73714.num_args = 4; + __glo_run_91r7rs_91benchmark = &c_73714; + mclosure0(c_73690, (function_type)__lambda_47);c_73690.num_args = 2; + __glo_hide = &c_73690; + mclosure0(c_73646, (function_type)__lambda_40);c_73646.num_args = 0; + __glo_main = &c_73646; + mclosure0(c_73575, (function_type)__lambda_30);c_73575.num_args = 1; + __glo_test = &c_73575; + mclosure0(c_73477, (function_type)__lambda_19);c_73477.num_args = 5; + __glo_mbrot = &c_73477; + mclosure0(c_73341, (function_type)__lambda_4);c_73341.num_args = 5; + __glo_count = &c_73341; + + make_cvar(cvar_73910, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_73911, find_or_add_symbol("this-scheme-implementation-name"), &cvar_73910); + make_cvar(cvar_73912, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_73913, find_or_add_symbol("run-r7rs-benchmark"), &cvar_73912); + make_cvar(cvar_73914, (object *)&__glo_hide);make_pair(pair_73915, find_or_add_symbol("hide"), &cvar_73914); + make_cvar(cvar_73916, (object *)&__glo_main);make_pair(pair_73917, find_or_add_symbol("main"), &cvar_73916); + make_cvar(cvar_73918, (object *)&__glo_test);make_pair(pair_73919, find_or_add_symbol("test"), &cvar_73918); + make_cvar(cvar_73920, (object *)&__glo_mbrot);make_pair(pair_73921, find_or_add_symbol("mbrot"), &cvar_73920); + make_cvar(cvar_73922, (object *)&__glo_count);make_pair(pair_73923, find_or_add_symbol("count"), &cvar_73922); +make_pair(c_73924, &pair_73911,Cyc_global_variables); +make_pair(c_73925, &pair_73913, &c_73924); +make_pair(c_73926, &pair_73915, &c_73925); +make_pair(c_73927, &pair_73917, &c_73926); +make_pair(c_73928, &pair_73919, &c_73927); +make_pair(c_73929, &pair_73921, &c_73928); +make_pair(c_73930, &pair_73923, &c_73929); +Cyc_global_variables = &c_73930; +mclosure1(c_done, c_entry_pt_first_lambda, &c_done); +mclosure1(c_73931, c_schemeread_entry_pt, &c_done); +mclosure1(c_73932, c_scheme_char_entry_pt, &c_73931); +mclosure1(c_73933, c_schemewrite_entry_pt, &c_73932); +mclosure1(c_73934, c_schemetime_entry_pt, &c_73933); +mclosure1(c_73935, c_schemebase_entry_pt, &c_73934); +mclosure1(c_73936, c_schemecyclonecommon_entry_pt, &c_73935); +(c_73936.fn)(data, 0, &c_73936, &c_73936); +} +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;}