/**
 ** 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)
 (char>=? scheme base)
 (string=? scheme base)
 (string<? scheme base)
 (string<=? scheme base)
 (string>? scheme base)
 (string>=? scheme base)
 (foldl scheme base)
 (foldr scheme base)
 (not scheme base)
 (list? scheme base)
 (zero? scheme base)
 (positive? scheme base)
 (negative? scheme base)
 (append scheme base)
 (list scheme base)
 (make-list scheme base)
 (list-copy scheme base)
 (map scheme base)
 (for-each scheme base)
 (list-tail scheme base)
 (list-ref scheme base)
 (list-set! scheme base)
 (reverse scheme base)
 (boolean=? scheme base)
 (symbol=? scheme base)
 (Cyc-obj=? scheme base)
 (vector scheme base)
 (vector-append scheme base)
 (vector-copy scheme base)
 (vector-copy! scheme base)
 (vector-fill! scheme base)
 (vector->list scheme base)
 (vector->string scheme base)
 (vector-map scheme base)
 (vector-for-each scheme base)
 (make-string scheme base)
 (string scheme base)
 (string-copy scheme base)
 (string-copy! scheme base)
 (string-fill! scheme base)
 (string->list scheme base)
 (string->vector scheme base)
 (string-map scheme base)
 (string-for-each scheme base)
 (make-parameter scheme base)
 (current-output-port scheme base)
 (current-input-port scheme base)
 (current-error-port scheme base)
 (call-with-port scheme base)
 (error scheme base)
 (raise scheme base)
 (raise-continuable scheme base)
 (with-handler scheme base)
 (with-exception-handler scheme base)
 (Cyc-add-exception-handler scheme base)
 (Cyc-remove-exception-handler scheme base)
 (newline scheme base)
 (write-char scheme base)
 (write-string scheme base)
 (flush-output-port scheme base)
 (read-line scheme base)
 (read-string scheme base)
 (input-port? scheme base)
 (output-port? scheme base)
 (input-port-open? scheme base)
 (output-port-open? scheme base)
 (get-output-string scheme base)
 (open-output-string scheme base)
 (open-input-string scheme base)
 (get-output-bytevector scheme base)
 (open-input-bytevector scheme base)
 (open-output-bytevector scheme base)
 (features scheme base)
 (Cyc-version scheme base)
 (any scheme base)
 (every scheme base)
 (and scheme base)
 (or scheme base)
 (let scheme base)
 (let* scheme base)
 (letrec scheme base)
 (let*-values scheme base)
 (let-values scheme base)
 (begin scheme base)
 (case scheme base)
 (cond scheme base)
 (cond-expand scheme base)
 (do scheme base)
 (when scheme base)
 (unless scheme base)
 (quasiquote scheme base)
 (floor scheme base)
 (ceiling scheme base)
 (truncate scheme base)
 (round scheme base)
 (exact scheme base)
 (inexact scheme base)
 (eof-object scheme base)
 (syntax-error scheme base)
 (bytevector-copy scheme base)
 (bytevector-copy! scheme base)
 (utf8->string scheme base)
 (string->utf8 scheme base)
 (denominator scheme base)
 (numerator scheme base)
 (parameterize scheme base)
 (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;}
