[optimized]
(lambda (k389)
  (let ((k390 (##core#lambda
                (r391)
                (let ((k393 (##core#lambda
                              (r394)
                              (let ((k396 (##core#lambda
                                            (r397)
                                            (let ((k399 (##core#lambda
                                                          (r400)
                                                          (let ((k402 (##core#lambda
                                                                        (r403)
                                                                        (let ((t405 (set! flush-output-port #f flush-output)))
                                                                          (let ((t406 (set! current-jiffy #f current-milliseconds)))
                                                                            (let ((t407 (set! jiffies-per-second
                                                                                          #f
                                                                                          (lambda (k409) (k409 1000)))))
                                                                              (let ((t410 (set! current-second #f current-seconds)))
                                                                                (let ((t411 (set! inexact #f exact->inexact)))
                                                                                  (let ((t412 (set! exact #f inexact->exact)))
                                                                                    (let ((t413 (set! square
                                                                                                  #f
                                                                                                  (lambda (k415 x61)
                                                                                                    (k415 (##core#inline_allocate
                                                                                                            ("C_a_i_times" 4)
                                                                                                            x61
                                                                                                            x61))))))
                                                                                      (let ((t419 (set! exact-integer? #f integer?)))
                                                                                        (let ((t420 (set! this-scheme-implementation-name
                                                                                                      #f
                                                                                                      (lambda (k422)
                                                                                                        (let ((k427 (##core#lambda
                                                                                                                      (r428)
                                                                                                                      (string-append k422 "chicken-" r428))))
                                                                                                          (chicken-version k427))))))
                                                                                          (let ((t430 (set! count
                                                                                                        #f
                                                                                                        (lambda (k432 r66 i67 step68 x69 y70)
                                                                                                          (let ((k505 (##core#lambda
                                                                                                                        (r506)
                                                                                                                        (let ((r502 (##core#inline_allocate
                                                                                                                                      ("C_a_i_times" 4)
                                                                                                                                      r506
                                                                                                                                      step68)))
                                                                                                                          (let ((r434 (##core#inline_allocate
                                                                                                                                        ("C_a_i_plus" 4)
                                                                                                                                        r66
                                                                                                                                        r502)))
                                                                                                                            (let ((cr73 r434))
                                                                                                                              (let ((k497 (##core#lambda
                                                                                                                                            (r498)
                                                                                                                                            (let ((r494 (##core#inline_allocate
                                                                                                                                                          ("C_a_i_times" 4)
                                                                                                                                                          r498
                                                                                                                                                          step68)))
                                                                                                                                              (let ((r437 (##core#inline_allocate
                                                                                                                                                            ("C_a_i_plus" 4)
                                                                                                                                                            i67
                                                                                                                                                            r494)))
                                                                                                                                                (let ((ci74 r437))
                                                                                                                                                  (let ((loop75 (##core#undefined)))
                                                                                                                                                    (let ((t442 (set! loop75
                                                                                                                                                                  #f
                                                                                                                                                                  (lambda (k444 zr76 zi77 c78)
                                                                                                                                                                    (if (##core#inline "C_i_nequalp" c78 64)
                                                                                                                                                                      (k444 c78)
                                                                                                                                                                      (let ((r452 (##core#inline_allocate
                                                                                                                                                                                    ("C_a_i_times" 4)
                                                                                                                                                                                    zr76
                                                                                                                                                                                    zr76)))
                                                                                                                                                                        (let ((r455 (##core#inline_allocate
                                                                                                                                                                                      ("C_a_i_times" 4)
                                                                                                                                                                                      zi77
                                                                                                                                                                                      zi77)))
                                                                                                                                                                          (let ((r490 (##core#inline_allocate
                                                                                                                                                                                        ("C_a_i_plus" 4)
                                                                                                                                                                                        r452
                                                                                                                                                                                        r455)))
                                                                                                                                                                            (if (##core#inline "C_i_greaterp" r490 16.0)
                                                                                                                                                                              (k444 c78)
                                                                                                                                                                              (let ((r486 (##core#inline_allocate
                                                                                                                                                                                            ("C_a_i_minus" 4)
                                                                                                                                                                                            r452
                                                                                                                                                                                            r455)))
                                                                                                                                                                                (let ((r464 (##core#inline_allocate
                                                                                                                                                                                              ("C_a_i_plus" 4)
                                                                                                                                                                                              r486
                                                                                                                                                                                              cr73)))
                                                                                                                                                                                  (let ((r482 (##core#inline_allocate
                                                                                                                                                                                                ("C_a_i_times" 4)
                                                                                                                                                                                                zr76
                                                                                                                                                                                                zi77)))
                                                                                                                                                                                    (let ((r478 (##core#inline_allocate
                                                                                                                                                                                                  ("C_a_i_times" 4)
                                                                                                                                                                                                  2.0
                                                                                                                                                                                                  r482)))
                                                                                                                                                                                      (let ((r467 (##core#inline_allocate
                                                                                                                                                                                                    ("C_a_i_plus" 4)
                                                                                                                                                                                                    r478
                                                                                                                                                                                                    ci74)))
                                                                                                                                                                                        (let ((r474 (##core#inline_allocate ("C_a_i_plus" 4) c78 1)))
                                                                                                                                                                                          (loop75 k444 r464 r467 r474))))))))))))))))
                                                                                                                                                      (loop75 k432 cr73 ci74 0)))))))))
                                                                                                                                (inexact k497 y70))))))))
                                                                                                            (inexact k505 x69))))))
                                                                                            (let ((t508 (set! mbrot
                                                                                                          #f
                                                                                                          (lambda (k510 matrix85 r86 i87 step88 n89)
                                                                                                            (let ((r516 (##core#inline_allocate ("C_a_i_minus" 4) n89 1)))
                                                                                                              (let ((loop190 (##core#undefined)))
                                                                                                                (let ((t518 (set! loop190
                                                                                                                              #f
                                                                                                                              (lambda (k520 y91)
                                                                                                                                (if (##core#inline "C_i_greater_or_equalp" y91 0)
                                                                                                                                  (let ((r532 (##core#inline_allocate ("C_a_i_minus" 4) n89 1)))
                                                                                                                                    (let ((loop292 (##core#undefined)))
                                                                                                                                      (let ((t534 (set! loop292
                                                                                                                                                    #f
                                                                                                                                                    (lambda (k536 x93)
                                                                                                                                                      (if (##core#inline "C_i_greater_or_equalp" x93 0)
                                                                                                                                                        (let ((r555 (##core#inline "C_i_vector_ref" matrix85 x93)))
                                                                                                                                                          (let ((a553 r555))
                                                                                                                                                            (let ((k558 (##core#lambda
                                                                                                                                                                          (r559)
                                                                                                                                                                          (let ((r544 (##core#inline "C_i_vector_set" a553 y91 r559)))
                                                                                                                                                                            (let ((r551 (##core#inline_allocate ("C_a_i_minus" 4) x93 1)))
                                                                                                                                                                              (loop292 k536 r551))))))
                                                                                                                                                              (count k558 r86 i87 step88 x93 y91))))
                                                                                                                                                        (let ((r566 (##core#inline_allocate ("C_a_i_minus" 4) y91 1)))
                                                                                                                                                          (loop190 k536 r566)))))))
                                                                                                                                        (loop292 k520 r532))))
                                                                                                                                  (k520 (##core#undefined)))))))
                                                                                                                  (loop190 k510 r516))))))))
                                                                                              (let ((t568 (set! test
                                                                                                            #f
                                                                                                            (lambda (k570 n98)
                                                                                                              (let ((k571 (##core#lambda
                                                                                                                            (r572)
                                                                                                                            (let ((matrix99 r572))
                                                                                                                              (let ((k574 (##core#lambda
                                                                                                                                            (r575)
                                                                                                                                            (let ((k577 (##core#lambda
                                                                                                                                                          (r578)
                                                                                                                                                          (let ((r585 (##core#inline "C_i_vector_ref" matrix99 0)))
                                                                                                                                                            (k570 (##core#inline "C_i_vector_ref" r585 0))))))
                                                                                                                                              (mbrot k577 matrix99 -1.0 -0.5 0.005 n98)))))
                                                                                                                                (let ((r589 (##core#inline_allocate ("C_a_i_minus" 4) n98 1)))
                                                                                                                                  (let ((loop100 (##core#undefined)))
                                                                                                                                    (let ((t591 (set! loop100
                                                                                                                                                  #f
                                                                                                                                                  (lambda (k593 i101)
                                                                                                                                                    (if (##core#inline "C_i_greater_or_equalp" i101 0)
                                                                                                                                                      (let ((k611 (##core#lambda
                                                                                                                                                                    (r612)
                                                                                                                                                                    (let ((r601 (##core#inline
                                                                                                                                                                                  "C_i_vector_set"
                                                                                                                                                                                  matrix99
                                                                                                                                                                                  i101
                                                                                                                                                                                  r612)))
                                                                                                                                                                      (let ((r608 (##core#inline_allocate ("C_a_i_minus" 4) i101 1)))
                                                                                                                                                                        (loop100 k593 r608))))))
                                                                                                                                                        (make-vector k611 n98))
                                                                                                                                                      (k593 (##core#undefined)))))))
                                                                                                                                      (loop100 k574 r589)))))))))
                                                                                                                (make-vector k571 n98))))))
                                                                                                (let ((t614 (set! main
                                                                                                              #f
                                                                                                              (lambda (k616)
                                                                                                                (let ((k617 (##core#lambda
                                                                                                                              (r618)
                                                                                                                              (let ((count107 r618))
                                                                                                                                (let ((k620 (##core#lambda
                                                                                                                                              (r621)
                                                                                                                                              (let ((input1108 r621))
                                                                                                                                                (let ((k623 (##core#lambda
                                                                                                                                                              (r624)
                                                                                                                                                              (let ((output109 r624))
                                                                                                                                                                (let ((k626 (##core#lambda
                                                                                                                                                                              (r627)
                                                                                                                                                                              (let ((s2110 r627))
                                                                                                                                                                                (let ((k629 (##core#lambda
                                                                                                                                                                                              (r630)
                                                                                                                                                                                              (let ((k636 (##core#lambda
                                                                                                                                                                                                            (r637)
                                                                                                                                                                                                            (let ((a639 (lambda (k641)
                                                                                                                                                                                                                          (let ((k646 (##core#lambda (r647) (test k641 r647))))
                                                                                                                                                                                                                            (hide k646 count107 input1108)))))
                                                                                                                                                                                                              (let ((a649 (lambda (k651 result113)
                                                                                                                                                                                                                            (k651 (##core#inline "C_i_nequalp" result113 output109)))))
                                                                                                                                                                                                                (run-r7rs-benchmark k616 r637 count107 a639 a649))))))
                                                                                                                                                                                                (string-append k636 "mbrot" ":" r630 ":" s2110)))))
                                                                                                                                                                                  (number->string k629 input1108))))))
                                                                                                                                                                  (number->string k626 count107))))))
                                                                                                                                                  (read k623))))))
                                                                                                                                  (read k620))))))
                                                                                                                  (read k617))))))
                                                                                                  (let ((t655 (set! hide
                                                                                                                #f
                                                                                                                (lambda (k657 r115 x116)
                                                                                                                  (let ((a661 (lambda (k663)
                                                                                                                                (let ((a678 (lambda (k680 x117) (k680 x117))))
                                                                                                                                  (let ((r669 (##core#inline_allocate
                                                                                                                                                ("C_a_i_vector2" 3)
                                                                                                                                                values
                                                                                                                                                a678)))
                                                                                                                                    (let ((r676 (##core#inline "C_i_lessp" r115 100)))
                                                                                                                                      (let ((r673 (##core#cond r676 0 1)))
                                                                                                                                        ((##core#proc "C_values" #t) k663 r669 r673))))))))
                                                                                                                    (let ((a681 (lambda (k683 v118 i119)
                                                                                                                                  (let ((r685 (##core#inline "C_i_vector_ref" v118 i119)))
                                                                                                                                    (r685 k683 x116)))))
                                                                                                                      ((##core#proc "C_call_with_values" #t)
                                                                                                                       k657
                                                                                                                       a661
                                                                                                                       a681)))))))
                                                                                                    (let ((t690 (set! run-r7rs-benchmark
                                                                                                                  #f
                                                                                                                  (lambda (k692 name123 count124 thunk125 ok?126)
                                                                                                                    (let ((k707 (##core#lambda
                                                                                                                                  (r708)
                                                                                                                                  (let ((k710 (##core#lambda
                                                                                                                                                (r711)
                                                                                                                                                (let ((k713 (##core#lambda
                                                                                                                                                              (r714)
                                                                                                                                                              (let ((k716 (##core#lambda
                                                                                                                                                                            (r717)
                                                                                                                                                                            (let ((k719 (##core#lambda
                                                                                                                                                                                          (r720)
                                                                                                                                                                                          (let ((j/s129 r720))
                                                                                                                                                                                            (let ((k722 (##core#lambda
                                                                                                                                                                                                          (r723)
                                                                                                                                                                                                          (let ((t0130 r723))
                                                                                                                                                                                                            (let ((k725 (##core#lambda
                                                                                                                                                                                                                          (r726)
                                                                                                                                                                                                                          (let ((j0131 r726))
                                                                                                                                                                                                                            (let ((loop132 (##core#undefined)))
                                                                                                                                                                                                                              (let ((t731 (set! loop132
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (lambda (k733 i133 result134)
                                                                                                                                                                                                                                              (if (##core#inline "C_i_lessp" i133 count124)
                                                                                                                                                                                                                                                (let ((r745 (##core#inline_allocate ("C_a_i_plus" 4) i133 1)))
                                                                                                                                                                                                                                                  (let ((a743 r745))
                                                                                                                                                                                                                                                    (let ((k748 (##core#lambda (r749) (loop132 k733 a743 r749))))
                                                                                                                                                                                                                                                      (thunk125 k748))))
                                                                                                                                                                                                                                                (let ((k754 (##core#lambda
                                                                                                                                                                                                                                                              (r755)
                                                                                                                                                                                                                                                              (if r755
                                                                                                                                                                                                                                                                (let ((k757 (##core#lambda
                                                                                                                                                                                                                                                                              (r758)
                                                                                                                                                                                                                                                                              (let ((j1139 r758))
                                                                                                                                                                                                                                                                                (let ((k760 (##core#lambda
                                                                                                                                                                                                                                                                                              (r761)
                                                                                                                                                                                                                                                                                              (let ((t1140 r761))
                                                                                                                                                                                                                                                                                                (let ((r764 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                              ("C_a_i_minus" 4)
                                                                                                                                                                                                                                                                                                              j1139
                                                                                                                                                                                                                                                                                                              j0131)))
                                                                                                                                                                                                                                                                                                  (let ((k766 (##core#lambda
                                                                                                                                                                                                                                                                                                                (r767)
                                                                                                                                                                                                                                                                                                                (let ((secs142 r767))
                                                                                                                                                                                                                                                                                                                  (let ((k769 (##core#lambda
                                                                                                                                                                                                                                                                                                                                (r770)
                                                                                                                                                                                                                                                                                                                                (let ((secs2143 r770))
                                                                                                                                                                                                                                                                                                                                  (let ((k772 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                (r773)
                                                                                                                                                                                                                                                                                                                                                (let ((k775 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                              (r776)
                                                                                                                                                                                                                                                                                                                                                              (let ((k778 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                            (r779)
                                                                                                                                                                                                                                                                                                                                                                            (let ((k781 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                          (r782)
                                                                                                                                                                                                                                                                                                                                                                                          (let ((k784 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                        (r785)
                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k787 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                      (r788)
                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k790 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                    (r791)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k793 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r794)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k796 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r797)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k799 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r800)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k802 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r803)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k805 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r806)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k808 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r809)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k811 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r812)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k814 (##core#lambda (r815) (k733 result134))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r819 ##sys#standard-output))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (flush-output-port k814 ##sys#standard-output))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (newline k811)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (display k808 secs142)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (display k805 ",")))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (display k802 name123)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (display k799 ",")))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k822 (##core#lambda (r823) (display k796 r823))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (this-scheme-implementation-name k822))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                      (display k793 "+!CSVLINE!+")))))
                                                                                                                                                                                                                                                                                                                                                                                                                        (newline k790)))))
                                                                                                                                                                                                                                                                                                                                                                                                          (display k787 name123)))))
                                                                                                                                                                                                                                                                                                                                                                                            (display k784 ") for ")))))
                                                                                                                                                                                                                                                                                                                                                                              (write k781 secs2143)))))
                                                                                                                                                                                                                                                                                                                                                                (display k778 " seconds (")))))
                                                                                                                                                                                                                                                                                                                                                  (write k775 secs142)))))
                                                                                                                                                                                                                                                                                                                                    (display k772 "Elapsed time: "))))))
                                                                                                                                                                                                                                                                                                                    (let ((r827 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                  ("C_a_i_minus" 4)
                                                                                                                                                                                                                                                                                                                                  t1140
                                                                                                                                                                                                                                                                                                                                  t0130)))
                                                                                                                                                                                                                                                                                                                      (let ((k695 k769))
                                                                                                                                                                                                                                                                                                                        (let ((k700 (##core#lambda
                                                                                                                                                                                                                                                                                                                                      (r701)
                                                                                                                                                                                                                                                                                                                                      (k695 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                              ("C_a_i_divide" 4)
                                                                                                                                                                                                                                                                                                                                              r701
                                                                                                                                                                                                                                                                                                                                              1000)))))
                                                                                                                                                                                                                                                                                                                          (let ((r705 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                        ("C_a_i_times" 4)
                                                                                                                                                                                                                                                                                                                                        1000
                                                                                                                                                                                                                                                                                                                                        r827)))
                                                                                                                                                                                                                                                                                                                            (round k700 r705))))))))))
                                                                                                                                                                                                                                                                                                    (let ((r831 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                  ("C_a_i_divide" 4)
                                                                                                                                                                                                                                                                                                                  r764
                                                                                                                                                                                                                                                                                                                  j/s129)))
                                                                                                                                                                                                                                                                                                      (inexact k766 r831))))))))
                                                                                                                                                                                                                                                                                  (current-second k760))))))
                                                                                                                                                                                                                                                                  (current-jiffy k757))
                                                                                                                                                                                                                                                                (let ((k833 (##core#lambda
                                                                                                                                                                                                                                                                              (r834)
                                                                                                                                                                                                                                                                              (let ((k836 (##core#lambda
                                                                                                                                                                                                                                                                                            (r837)
                                                                                                                                                                                                                                                                                            (let ((k839 (##core#lambda
                                                                                                                                                                                                                                                                                                          (r840)
                                                                                                                                                                                                                                                                                                          (let ((k842 (##core#lambda (r843) (k733 result134))))
                                                                                                                                                                                                                                                                                                            (let ((r847 ##sys#standard-output))
                                                                                                                                                                                                                                                                                                              (flush-output-port k842 ##sys#standard-output))))))
                                                                                                                                                                                                                                                                                              (newline k839)))))
                                                                                                                                                                                                                                                                                (write k836 result134)))))
                                                                                                                                                                                                                                                                  (display
                                                                                                                                                                                                                                                                    k833
                                                                                                                                                                                                                                                                    "ERROR: returned incorrect result: "))))))
                                                                                                                                                                                                                                                  (ok?126 k754 result134)))))))
                                                                                                                                                                                                                                (loop132 k692 0 #f)))))))
                                                                                                                                                                                                              (current-jiffy k725))))))
                                                                                                                                                                                              (current-second k722))))))
                                                                                                                                                                              (jiffies-per-second k719)))))
                                                                                                                                                                (let ((r851 ##sys#standard-output))
                                                                                                                                                                  (flush-output-port k716 ##sys#standard-output))))))
                                                                                                                                                  (newline k713)))))
                                                                                                                                    (display k710 name123)))))
                                                                                                                      (display k707 "Running "))))))
                                                                                                      (let ((k853 (##core#lambda
                                                                                                                    (r854)
                                                                                                                    (let ((k856 (##core#lambda (r857) (k389 (##core#undefined)))))
                                                                                                                      (let ((k859 (##core#lambda (r860) (r860 k856))))
                                                                                                                        (##sys#implicit-exit-handler k859))))))
                                                                                                        (main k853))))))))))))))))))))
                                                            (##sys#require k402 'vector-lib)))))
                                              (##core#callunit "extras" k399)))))
                                (##core#callunit "chicken_2dsyntax" k396)))))
                  (##core#callunit "eval" k393)))))
    (##core#callunit "library" k390)))