Welcome to the CHICKEN Scheme pasting service

Almonds pasted by C-Keen on Mon Aug 21 21:08:29 2017

(use data-structures srfi-1)

(define height 900)
(define width 900)
(define escape-value 700)

(define (->integer n)
  (inexact->exact (floor (exact->inexact n))))

(define (hsb->rgb h s b)
  (let* ((c (* b s))
         (x (* c (- 1 (abs (sub1 (modulo (->integer (/ h 60)) 2))))))
         (m (- b c))
         (rgb*
          (cond ((and (<= 0 h) (< h 60))
                 (list c x 0))
                ((and (<= 60 h) (< h 120))
                 (list x c 0))
                ((and (<= 120 h) (< h 180))
                 (list 0 c x))
                ((and (<= 180 h) (< h 240))
                 (list 0 x c))
                ((and (<= 240 h) (< h 300))
                 (list x 0 c))
                ((and (<= 300 h) (< h 360))
                 (list c 0 x)))))
    (map (lambda (c) (->integer (* 255 (+ m c)))) rgb*)))

(define (color-mapping i)
  (hsb->rgb (- 359 (modulo i 360)) 1 (/ i (+ 8 i))))

(define colors (map color-mapping (iota (add1 escape-value))))

(define (mandelbrod/real real img)
  (define (x* x y)
    (+ (- (* x x) (* y y)) real))
  (define (y* x y)
    (+ (* 2 x y) img))
  (let iterate ((x 0)
                (y 0)
                (count 0))
    (if (or (>= (+ (* x x) (* y y)) 4)
            (>= count escape-value))
        count
        (iterate (x* x y) (y* x y) (add1 count)))))

(define (infinity-trap/instant-draw acorner bcorner side #!key (formula mandelbrod/real))
  (let ((h-gap (/ side height))
        (w-gap (/ side width)))
    (fprintf (current-error-port) "Gap: ~a, ~a~%" h-gap w-gap)
    (let loop ((i 0))
      (if (>= i (* height width))
          'done
          (begin
            (let* ((c (formula (+ acorner (* w-gap (remainder i width)))
                               (+ bcorner (* h-gap (quotient i width)))))
                   (colors (if (>= c escape-value)
                               '(0 0 0)
                               (list-ref colors (->integer c)))))
              (printf "~a ~a ~a~%" (car colors) (cadr colors) (caddr colors)))
            (loop (add1 i)))))))

(print "P3")
(printf "~a ~a~%" width height)
(print 255)
(infinity-trap/instant-draw -2 -1.25 2.5 formula: mandelbrod/real)

profiling pasted by C-Keen on Mon Aug 21 21:36:32 2017

; chicken-profile PROFILE.33943                                             
reading `PROFILE.33943' ...

procedure                      calls  seconds  average  percent
---------------------------------------------------------------
m#infinity-trap/instant-draw       1   77.579   77.579  100.000
m#mandelbrod/real             810000   66.209    0.000   85.344
m#->integer                   616642    1.790    0.000    2.307
m#color-mapping                  701    0.020    0.000    0.025
m#hsb->rgb                       701    0.010    0.000    0.012

-:p profile pasted by sjamaan on Mon Aug 21 21:41:47 2017

reading `PROFILE.17642' ...

procedure                                 calls  seconds  average  percent
--------------------------------------------------------------------------
almond-5.scm:38: *                          685   12.580    0.018   41.766
almond-5.scm:45: iterate                    634    9.890    0.015   32.835
almond-5.scm:45: x*                         424    5.200    0.012   17.264
almond-5.scm:45: y*                         133    1.420    0.010    4.714
almond-5.scm:60: ##sys#print                 44    0.520    0.011    1.726
almond-5.scm:60: ##sys#write-char-0          20    0.200    0.010    0.664
almond-5.scm:61: loop                        13    0.150    0.011    0.498
almond-5.scm:55: formula                      7    0.070    0.010    0.232
almond-5.scm:8: inexact->exact                4    0.040    0.010    0.132
almond-5.scm:59: ->integer                    2    0.020    0.010    0.066
almond-5.scm:8: floor                         1    0.020    0.020    0.066
almond-5.scm:60: ##sys#check-output-port      1    0.010    0.010    0.033

faster almonds pasted by sjamaan on Tue Aug 22 19:29:19 2017

(use chicken.string chicken.format srfi-1)

(define height 900)
(define width 900)
(define escape-value 700)

(define (hsb->rgb h s b)
  (let* ((c (* b s))
         (x (* c (- 1 (abs (sub1 (modulo (floor (/ h 60)) 2))))))
         (m (- b c))
         (rgb*
          (cond ((and (<= 0 h) (< h 60))
                 (list c x 0))
                ((and (<= 60 h) (< h 120))
                 (list x c 0))
                ((and (<= 120 h) (< h 180))
                 (list 0 c x))
                ((and (<= 180 h) (< h 240))
                 (list 0 x c))
                ((and (<= 240 h) (< h 300))
                 (list x 0 c))
                ((and (<= 300 h) (< h 360))
                 (list c 0 x)))))
    (map (lambda (c) (floor (* 255 (+ m c)))) rgb*)))

(define (color-mapping i)
  (hsb->rgb (- 359 (modulo i 360)) 1 (/ i (+ 8 i))))

(define colors (map color-mapping (iota (add1 escape-value))))

(define (mandelbrod/real real img)
  (define (x* x y)
    (assume ((x float)
             (y float)
             (real float))
     (+ (- (* x x) (* y y)) real)))
  (define (y* x y)
    (assume ((x float)
             (y float)
             (img float))
      ;; NOTE: Using (* 2.0 x y) is _slow_
      (+ (* (* 2.0 x) y) img)))
  (let iterate ((x (the float 0.0))
                (y (the float 0.0))
                (count 0))
    (if (or (>= (+ (* x x) (* y y)) 4)
            (>= count escape-value))
        count
        (iterate (x* x y) (y* x y) (add1 count)))))

(define (infinity-trap/instant-draw acorner bcorner side #!key (formula mandelbrod/real))
  (let ((h-gap (/ side height))
        (w-gap (/ side width)))
    (fprintf (current-error-port) "Gap: ~a, ~a~%" h-gap w-gap)
    (let loop ((i 0))
      (if (>= i (* height width))
          'done
          (begin
            (let* ((c (formula (+ acorner (* w-gap (remainder i width)))
                               (+ bcorner (* h-gap (quotient i width)))))
                   (colors (if (>= c escape-value)
                               '(0 0 0)
                               (list-ref colors (floor c)))))
              (printf "~a ~a ~a~%" (car colors) (cadr colors) (caddr colors)))
            (loop (add1 i)))))))

(print "P3")
(printf "~a ~a~%" width height)
(print 255)
(time (infinity-trap/instant-draw -2 -1.25 2.5 formula: mandelbrod/real))

csc c5.scm -o c5-patched -O5 -debug D8 > debug.log pasted by C-Keen on Wed Aug 23 22:19:31 2017

[final-analysis]
(iteration 15)
f_826	contained-in=f_815	captured-variables=()	closure-size=0	contains=(f_790 f_680)
f_824	contained-in=f_818	captured-variables=(k416)	closure-size=1
tmp138140	home=f_644	val=(##core#inline "C_i_greater_or_equalp")	refs=2
k420	home=f_419	inl	val=(##core#lambda f_422 #f (r421) 1086)	refs=1
c80	home=f_455	refs=1
r430	home=f_428
toplevel	closure-size=0	captured-variables=()
y121	home=f_943	val=(##core#variable a941)	refs=2
r970	home=f_943	refs=1
r854	home=f_870	val=(##core#inline_allocate "C_a_i_cons" 3)	refs=2
y128	home=f_943	val=(##core#variable a941)	refs=1
k868	home=f_845	inl	val=(##core#lambda f_870 #f (r869) 26)	refs=1
r516	home=f_449	val=(##core#cond)	refs=1
r857	home=f_870	val=(##core#inline "C_i_setslot")
k429	home=f_428	inl	val=(##core#lambda f_431 #f (r430) 1063)	refs=1
a623	home=f_943	val=(##core#inline_allocate "C_a_i_flonum_times" 4)	refs=1
a626	home=f_943	val=(##core#inline_allocate "C_a_i_flonum_times" 4)	refs=1
a622	home=f_943	val=(##core#inline_allocate "C_a_i_flonum_difference" 4)	refs=1
f_836	contained-in=f_832	captured-variables=(k833 t190191)	closure-size=2
r635	home=va971	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
f_832	contained-in=f_815	captured-variables=()	closure-size=0	contains=(f_843 f_836)
g98107	home=f_431	cpt	val=(##core#variable color-mapping)	refs=1	css=1
map-loop6381	home=f_455	box	cpt	set	stl	und	val=(##core#lambda f_473 #t (k474 g7582) 49)	refs=2	css=2
k496	home=f_473	inl	val=(##core#lambda f_498 #f (r497) 26)	refs=1
c47	home=f_601	cpt	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=8
r865	home=f_870	val=(##core#inline "C_slot")	refs=1
y136	home=f_943	cpt	refs=4
t472	home=f_455	val=(set! map-loop6381 #f)
r869	home=f_845	refs=1
r679	home=f_826	refs=1
r756	home=f_732	val=(##core#inline "C_u_i_cadr")	refs=1
tmp148152	home=f_826	val=(##core#inline_allocate "C_a_i_list" 6)	refs=1
r752	home=f_738	val=(##core#inline "C_u_i_caddr")	refs=1
a672	home=f_670	val=(##core#variable count137)	refs=1
f_809	contained-in=f_806	captured-variables=(k416)	closure-size=1	contains=(f_812)
a673	home=f_644	val=(##core#variable count137)	refs=1
r600	home=f_588	refs=1
a671	home=f_670	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
f_806	contained-in=f_803	captured-variables=(k416 out182185)	closure-size=2	contains=(f_809)
f_431	contained-in=f_428	captured-variables=(k416)	closure-size=1	contains=(f_612 f_588)
t606	home=f_615	val=(set! colors #f)
r608	home=f_431	val=(##core#inline_allocate "C_a_i_cons" 3)	refs=1
f_803	contained-in=f_800	captured-variables=(k416 out182185)	closure-size=2	contains=(f_806)
f_800	contained-in=f_794	captured-variables=(k416 out182185)	closure-size=2	contains=(f_803)
out182185	home=f_794	cpt	val=(##core#variable ##sys#standard-output)	refs=3
k610	home=f_431	inl	val=(##core#lambda f_612 #f (r611) 724)	refs=1
f_943	contained-in=f_617	captured-variables=(img117 real116 dispatch930 k618)	closure-size=4	cst	contains=(f_644 va971)
h44	home=f_601	cpt	val=(##core#variable a593)	refs=13
k618	home=f_615	cpt	refs=1
f_498	contained-in=f_473	captured-variables=(g6876 g7582 map-loop6381 k474)	closure-size=4
k613	home=f_612	inl	val=(##core#lambda f_615 #f (r614) 661)	refs=1
k460	home=f_455	refs=1
g942	home=f_617	val=(set! dispatch930)
r873	home=f_845	val=(##core#inline "C_slot")	refs=1
r793	home=f_615
r799	home=f_794
dispatch930	home=f_617	box	cpt	set	stl	und	val=(##core#lambda f_943 #t (a939 a940 a941 i931) 171)	refs=3	css=3
a831	home=f_815	inl	val=(##core#lambda f_832 #t (k833 . t190191) 25)	refs=1
##sys#implicit-exit-handler	glo	refs=1	css=1
f_698	contained-in=f_695	captured-variables=(w-gap155 h-gap154 formula153 k677 out156159)	closure-size=5	contains=(f_701)
a714	home=f_709	val=(##core#variable i166)	refs=1
a466	home=f_459	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
r760	home=f_723	val=(##core#inline "C_u_i_car")	refs=1
##sys#print	glo	refs=9	css=9
a464	home=f_459	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
a687	home=f_686	val=(##core#variable ##sys#standard-error)
r769	home=f_720	refs=1
r497	home=f_473	refs=1
k621	home=f_943	val=(##core#variable a939)	refs=1	css=1
f_449	contained-in=f_601	captured-variables=(a440 b46 c47 k437 h44)	closure-size=5	contains=(f_455)
img117	home=f_615	cpt	refs=1
i931	home=f_617	refs=1
##sys#display-times	glo	refs=1	css=1
r493	home=f_498	val=(##core#inline "C_slot")	refs=1
a715	home=f_709	val=(##core#inline_allocate "C_a_i_fixnum_times" 5)	refs=1
va971	home=f_943	cst	captured-variables=(k632 img133)	closure-size=2	contained-in=f_943	val=(##core#lambda va971 #t (r970) 12)	refs=1	css=1
a775	home=f_709	val=(##core#inline_allocate "C_s_a_i_remainder" 5)	refs=1
a776	home=f_709	val=(##core#variable i166)	refs=1
a773	home=f_709	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
a771	home=f_709	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
k589	home=f_431	cpt	refs=1
g97105	home=f_431	box	set	stl	cpt	refs=2
f_584	contained-in=f_601	captured-variables=(k447)	closure-size=1
k582	home=f_601	inl	val=(##core#lambda f_584 #f (r583) 7)	refs=1
f_695	contained-in=f_692	captured-variables=(w-gap155 h-gap154 formula153 k677 out156159)	closure-size=5	contains=(f_698)
a778	home=f_709	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
f_692	contained-in=f_686	captured-variables=(w-gap155 h-gap154 formula153 k677 out156159)	closure-size=5	contains=(f_695)
f_601	contained-in=f_588	captured-variables=(k589 a593)	closure-size=2	contains=(f_584 f_449)
r697	home=f_695
r691	home=f_686
k733	home=f_732	inl	val=(##core#lambda f_735 #f (r734) 52)	refs=1
r694	home=f_692
r737	home=f_735
k730	home=f_729	inl	val=(##core#lambda f_732 #f (r731) 68)	refs=1
k736	home=f_735	inl	val=(##core#lambda f_738 #f (r737) 41)	refs=1
f_686	contained-in=f_683	captured-variables=(h-gap154 formula153 k677)	closure-size=3	contains=(f_692)
f_588	contained-in=f_431	captured-variables=()	closure-size=0	contains=(f_601)
k739	home=f_738	inl	val=(##core#lambda f_741 #f (r740) 25)	refs=1
r731	home=f_729
r734	home=f_732
k702	home=f_701	inl	val=(##core#lambda f_704 #f (r703) 203)	refs=1
r549887	home=f_449	und	refs=1
g6777	home=f_455	cpt	val=(##core#variable g6876)	refs=1
color-mapping	inl	set	glo	val=(##core#lambda f_588 #t (k589 i88) 310)	refs=1
f_683	contained-in=f_680	captured-variables=(formula153 k677)	closure-size=2	contains=(f_686)
f_680	contained-in=f_826	captured-variables=(k677)	closure-size=1	contains=(f_683)
r665	home=f_659	refs=1
count137	home=f_943	cpt	refs=3
f_612	contained-in=f_431	captured-variables=(k416 g97105 g98107 g96106)	closure-size=4	contains=(f_845 f_615)
t173	home=f_723	val=(##core#inline "C_i_check_port_2")
f_617	contained-in=f_615	captured-variables=()	closure-size=0	contains=(f_943)
g7582	home=f_455	cpt	refs=3
f_615	contained-in=f_612	captured-variables=(k416)	closure-size=1	contains=(f_794 f_617)
k742	home=f_741	inl	val=(##core#lambda f_744 #f (r743) 14)	refs=1
r669	home=f_666	refs=1
a444	home=f_449	val=(##core#inline_allocate "C_s_a_i_minus" 29)	refs=1
a443	home=f_449	val=(##core#inline_allocate "C_s_a_i_abs" 7)	refs=1
a445	home=f_449	val=(##core#inline_allocate "C_s_a_i_modulo" 5)	refs=1
a440	home=f_601	cpt	val=(##core#variable c47)	refs=1
a441	home=f_449	val=(##core#inline_allocate "C_s_a_i_minus" 29)	refs=1
k710	home=f_704	cpt	refs=2	css=1
t844	home=f_612	val=(set! map-loop92109 #f)
k718	home=f_709	inl	val=(##core#lambda f_720 #f (r719) 137)	refs=1
##sys#standard-output	glo	refs=8
##sys#write-char-0	glo	refs=6	css=6
a650	home=f_644	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
a651	home=f_644	val=(##core#variable x135)	refs=1
a652	home=f_644	val=(##core#variable x135)	refs=1
a653	home=f_644	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
img133	home=f_943	cpt	val=(##core#variable img117)	refs=1
a654	home=f_644	val=(##core#variable y136)	refs=1
a655	home=f_644	val=(##core#variable y136)	refs=1
f_415	contains=(f_419)
f_419	contained-in=f_415	captured-variables=(k416)	closure-size=1	contains=(f_422)
t587	home=f_431	val=(set! color-mapping #f)
k721	home=f_720	inl	cpt	val=(##core#lambda f_723 #f (r722) 109)	refs=2	css=2
r583	home=f_601	refs=1
k727	home=f_723	inl	val=(##core#lambda f_729 #f (r728) 79)	refs=1
r448	home=f_601	refs=1
a724	home=f_723	val=(##core#variable ##sys#standard-output)
a939	home=f_617	refs=2
f_732	contained-in=f_729	captured-variables=(i166 loop165 k710 out169172 colors168)	closure-size=5	contains=(f_735)
f_815	contained-in=f_812	captured-variables=(k416)	closure-size=1	contains=(f_832 f_826 f_818)
f_735	contained-in=f_732	captured-variables=(i166 loop165 k710 out169172 colors168)	closure-size=5	contains=(f_738)
a663	home=f_666	cpt	val=(##core#variable r665)	refs=1
f_818	contained-in=f_815	captured-variables=(k416)	closure-size=1	contains=(f_824)
f_738	contained-in=f_735	captured-variables=(i166 loop165 k710 out169172 colors168)	closure-size=5	contains=(f_741)
f_422	contained-in=f_419	captured-variables=(k416)	closure-size=1	contains=(f_425)
f_812	contained-in=f_809	captured-variables=(k416)	closure-size=1	contains=(f_815)
f_425	contained-in=f_422	captured-variables=(k416)	closure-size=1	contains=(f_428)
loop165	home=f_704	box	cpt	set	stl	und	val=(##core#lambda f_709 #t (k710 i166) 191)	refs=2	css=2
f_428	contained-in=f_425	captured-variables=(k416)	closure-size=1	contains=(f_431)
w-gap155	home=f_686	cpt	val=(##core#variable r685)	refs=2
##sys#standard-error	glo	refs=4
r682	home=f_680	refs=1
r685	home=f_683	refs=1
colors168	home=f_723	cpt	val=(##core#variable r722)	refs=3
k768	home=f_720	inl	val=(##core#lambda f_770 #f (r769) 8)	refs=1
mandelbrod/real	inl	set	glo	val=(##core#lambda f_617 #t (k618 real116 img117) 184)	refs=2
m49	home=f_449	cpt	val=(##core#inline_allocate "C_s_a_i_minus" 29)	refs=1
r703	home=f_701
t190191	home=f_815	cpt	rest-parameter=list	refs=1
r700	home=f_698
f_741	contained-in=f_738	captured-variables=(i166 loop165 k710 out169172)	closure-size=4	contains=(f_744)
#:formula	glo	refs=1
f_744	contained-in=f_741	captured-variables=(i166 loop165 k710)	closure-size=3
h-gap154	home=f_683	cpt	val=(##core#variable r682)	refs=2
b46	home=f_601	cpt	val=(##core#variable r600)	refs=2
i166	home=f_704	cpt	refs=4
f_459	contained-in=f_455	cst	captured-variables=(m49)	closure-size=1
i88	home=f_431	refs=3
f_455	contained-in=f_449	cst	captured-variables=(m49 k437)	closure-size=2	contains=(f_473 f_459)
srfi-1#iota	glo	refs=1	css=1
a941	home=f_617	refs=2
a940	home=f_617	refs=2
k677	home=f_826	cpt	val=(##core#variable k827)	refs=1
k678	home=f_826	inl	val=(##core#lambda f_680 #f (r679) 303)	refs=1
t186	home=f_794	val=(##core#inline "C_i_check_port_2")
a783	home=f_709	val=(##core#variable i166)	refs=1
a780	home=f_709	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=1
a782	home=f_709	val=(##core#inline_allocate "C_s_a_i_quotient" 5)	refs=1
k599	home=f_588	inl	val=(##core#lambda f_601 #f (r600) 282)	refs=1
a789	home=f_826	inl	val=(##core#lambda f_790 #t (k791) 5)	refs=1
f_659	contained-in=f_644	cst	captured-variables=(count137 k645 dispatch930 x135 y136)	closure-size=5	contains=(f_666)
f_473	contained-in=f_455	captured-variables=(g6876 map-loop6381 g6978 g6777)	closure-size=4	cst	contains=(f_498)
out169172	home=f_723	cpt	val=(##core#variable ##sys#standard-output)	refs=5
k681	home=f_680	inl	val=(##core#lambda f_683 #f (r682) 291)	refs=1
k684	home=f_683	inl	val=(##core#lambda f_686 #f (r685) 279)	refs=1
a795	home=f_794	val=(##core#variable ##sys#standard-output)
f_723	contained-in=f_720	cst	captured-variables=(i166 loop165 k710)	closure-size=3	contains=(f_729)
f_720	contained-in=f_709	captured-variables=(i166 loop165 k710)	closure-size=3	contains=(f_770 f_723)
a596	home=f_588	val=(##core#variable i88)	refs=1
a595	home=f_588	val=(##core#inline_allocate "C_s_a_i_modulo" 5)	refs=1
f_843	contained-in=f_832	captured-variables=(k834)	closure-size=1
f_729	contained-in=f_723	captured-variables=(i166 loop165 k710 out169172 colors168)	closure-size=5	contains=(f_732)
formula153	home=f_680	cpt	val=(##core#variable r679)	refs=1	css=1
a593	home=f_588	cpt	val=(##core#inline_allocate "C_s_a_i_minus" 29)	refs=1
f_790	contained-in=f_826	captured-variables=()	closure-size=0	sim
f_794	contained-in=f_615	captured-variables=(k416)	closure-size=1	contains=(f_800)
r805	home=f_803
r543	home=f_449	val=(##core#cond)	refs=1
##sys#/-2	glo	refs=4	css=4
k447	home=f_601	inl	cpt	val=(##core#lambda f_449 #f (r448) 248)	refs=1
r808	home=f_806
r802	home=f_800
k696	home=f_695	inl	val=(##core#lambda f_698 #f (r697) 227)	refs=1
k693	home=f_692	inl	val=(##core#lambda f_695 #f (r694) 239)	refs=1
r485	home=f_498	val=(##core#inline "C_i_setslot")
k690	home=f_686	inl	val=(##core#lambda f_692 #f (r691) 252)	refs=1
r482	home=f_498	val=(##core#inline_allocate "C_a_i_cons" 3)	refs=2
g96106	home=f_431	cpt	val=(##core#variable g97105)	refs=1
k632	home=f_943	cpt	val=(##core#variable a939)	refs=1	css=1
##sys#start-timer	glo	refs=1	css=1
t616	home=f_615	val=(set! mandelbrod/real #f)
f_870	contained-in=f_845	captured-variables=(g97105 g104110 map-loop92109 k846)	closure-size=4
a605	home=f_588	val=(##core#variable i88)	refs=1
r817	home=f_815
a603	home=f_588	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
a602	home=f_588	val=(##core#variable i88)	refs=1
x48	home=f_449	val=(##core#inline_allocate "C_s_a_i_times" 33)	refs=6
r811	home=f_809
k417	home=f_415	inl	val=(##core#lambda f_419 #f (r418) 1092)	refs=1
k416	cpt	refs=1
r552	home=f_449	val=(##core#cond)	refs=1
r814	home=f_812
k699	home=f_698	inl	val=(##core#lambda f_701 #f (r700) 214)	refs=1
f_845	contained-in=f_612	captured-variables=(g97105 map-loop92109 g98107 g96106)	closure-size=4	cst	contains=(f_870)
f_670	contained-in=f_666	captured-variables=(count137 k645 a663)	closure-size=3
real116	home=f_615	cpt	refs=1
k437	home=f_601	cpt	val=(##core#variable k589)	refs=1
r740	home=f_738
r743	home=f_741
k798	home=f_794	inl	val=(##core#lambda f_800 #f (r799) 434)	refs=1
colors	set	glo	val=(##core#variable r614)	refs=1
k792	home=f_615	inl	val=(##core#lambda f_794 #f (r793) 459)	refs=1
k791	home=f_826	refs=1	css=1
a825	home=f_815	inl	val=(##core#lambda f_826 #t (k827) 330)	refs=1
f_701	contained-in=f_698	captured-variables=(w-gap155 h-gap154 formula153 k677 out156159)	closure-size=5	contains=(f_704)
t160	home=f_686	val=(##core#inline "C_i_check_port_2")
k645	home=f_943	cpt	refs=2	css=1
f_666	contained-in=f_659	captured-variables=(count137 k645 dispatch930 x135 y136)	closure-size=5	contains=(f_670)
map-loop92109	home=f_612	box	cpt	set	und	val=(##core#lambda f_845 #t (k846 g104110) 49)	refs=2	css=2
f_709	contained-in=f_704	captured-variables=(loop165 w-gap155 h-gap154 formula153)	closure-size=4	cst	contains=(f_720)
f_704	contained-in=f_701	captured-variables=(w-gap155 h-gap154 formula153 k677)	closure-size=4	contains=(f_709)
iterate134	set	stl	glo	val=(##core#lambda f_644 #t (k645 x135 y136 count137) 96)	refs=2	css=2
g104110	home=f_612	cpt	refs=3
k833	home=f_815	cpt	refs=1
g6978	home=f_455	cpt	val=(##core#lambda f_459 #t (k460 c80) 15)	refs=1	css=1
f_770	contained-in=f_720	captured-variables=(k721)	closure-size=1
k834	home=f_832	inl	cpt	val=(##core#lambda f_836 #f (r835) 7)	refs=1
g6876	home=f_455	box	set	stl	cpt	refs=2
r525	home=f_449	val=(##core#cond)	refs=1
r823	home=f_818	refs=1	css=1
k801	home=f_800	inl	val=(##core#lambda f_803 #f (r802) 423)	refs=1
r719	home=f_709	refs=2
real126	home=f_943	val=(##core#variable real116)	refs=1
k807	home=f_806	inl	val=(##core#lambda f_809 #f (r808) 400)	refs=1
t643	home=f_943	val=(set! iterate134 #f)
k804	home=f_803	inl	val=(##core#lambda f_806 #f (r805) 411)	refs=1
a649	home=f_644	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
r647888	home=f_659	val=(##core#variable count137)	refs=1
x120	home=f_943	val=(##core#variable a940)	refs=2
x127	home=f_943	val=(##core#variable a940)	refs=1
k657	home=f_644	inl	val=(##core#lambda f_659 #f (r658) 55)	refs=2	css=2
t708	home=f_704	val=(set! loop165 #f)
r418	home=f_415
k841	home=f_832	inl	val=(##core#lambda f_843 #f (r842) 7)	refs=1
k846	home=f_612	cpt	refs=2	css=1
r534	home=f_449	val=(##core#cond)	refs=1
r835	home=f_832
k810	home=f_809	inl	val=(##core#lambda f_812 #f (r811) 391)	refs=1
r728	home=f_723
r611	home=f_431	refs=1
k813	home=f_812	inl	val=(##core#lambda f_815 #f (r814) 383)	refs=1
r614	home=f_612	refs=1
k816	home=f_815	inl	val=(##core#lambda f_818 #f (r817) 13)	refs=1
k453	home=f_449	inl	val=(##core#lambda f_455 #f (r454) 87)	refs=7	css=7
r722	home=f_720	refs=1
r454	home=f_449	refs=1
out156159	home=f_686	cpt	val=(##core#variable ##sys#standard-error)	refs=4
x135	home=f_943	cpt	refs=4
r457	home=f_455	val=(##core#inline_allocate "C_a_i_cons" 3)	refs=1
k664	home=f_659	inl	val=(##core#lambda f_666 #f (r665) 32)	refs=1
r421	home=f_419
k668	home=f_666	inl	val=(##core#lambda f_670 #f (r669) 17)	refs=1
r424	home=f_422
r427	home=f_425
k474	home=f_455	cpt	refs=2	css=1
t859	home=f_870	val=(set! g97105 #f)
r501	home=f_473	val=(##core#inline "C_slot")	refs=1
r507	home=f_449	val=(##core#cond)	refs=1
r842	home=f_832	refs=1
f_644	contained-in=f_943	captured-variables=(dispatch930)	closure-size=1	cst	contains=(f_659)
a749	home=f_744	val=(##core#variable i166)	refs=1
a748	home=f_744	val=(##core#inline_allocate "C_s_a_i_plus" 29)	refs=1
t487	home=f_498	val=(set! g6876 #f)
chicken.load#load-extension	glo	refs=1	css=1
k822	home=f_818	inl	val=(##core#lambda f_824 #f (r823) 5)	refs=1
r658	home=f_644	refs=1
##sys#stop-timer	glo	refs=1	css=1
k827	home=f_815	refs=1
a878	home=f_431	val=(##core#inline_allocate "C_a_i_fixnum_plus" 5)	refs=1
k426	home=f_425	inl	val=(##core#lambda f_428 #f (r427) 1074)	refs=1
k423	home=f_422	inl	val=(##core#lambda f_425 #f (r424) 1080)	refs=1

D9 pasted by C-Keen on Wed Aug 23 22:21:09 2017

[closure-converted]

<##core#closure (1)
  <##core#lambda (toplevel #t (c1010 k416) 1098)
    
                                            
                                                >
                                              
                                                  <##core#variable (a595)>>
                                                >
                                                        >
                                                          
                                                            
                                                                >
                                                              
                                                                
                                                                          >
                                                                        
                                                                            >
                                                                          >
                                                                            
                                                                                <##core#variable (a443)>>
                                                                              >
                                                                                  <##core#variable (a441)>>
                                                                                >
                                                                                    <##core#ref (3)
                                                                                      <##core#variable (c1034)>>>
                                                                                  
                                                                                            >
                                                                                          
                                                                                            >
                                                                                              >
                                                                                                >
                                                                                                          <##core#variable (c80)>>
                                                                                                        
                                                                                                            <##core#variable (a466)>>
                                                                                                          <##core#call (#t ("c5.scm:24" "floor"))
                                                                                                            <##core#variable (floor)>
                                                                                                            <##core#variable (k460)>
                                                                                                            <##core#variable (a464)>>>>>
                                                                                                    <##core#ref (1)
                                                                                                      <##core#variable (c1042)>>>
                                                                                                  
                                                                                                    >
                                                                                                      
                                                                                                          <##core#closure (5)
                                                                                                            <##core#lambda (f_473 #t (c1052 k474 g7582) 49)
                                                                                                              >
                                                                                                                
                                                                                                                          >
                                                                                                                        >>
                                                                                                                            
                                                                                                                            <##core#variable (r482)>>
                                                                                                                          >
                                                                                                                              <##core#variable (r482)>>
                                                                                                                            >
                                                                                                                                >
                                                                                                                              <##core#call (#t #f f_473 #t)
                                                                                                                                <##core#unbox ()
                                                                                                                                  <##core#ref (3)
                                                                                                                                    <##core#variable (c1054)>>>
                                                                                                                                <##core#ref (4)
                                                                                                                                  <##core#variable (c1054)>>
                                                                                                                                <##core#variable (r493)>>>>>>>
                                                                                                                    <##core#ref (1)
                                                                                                                      <##core#variable (c1052)>>
                                                                                                                    <##core#variable (g7582)>
                                                                                                                    <##core#ref (2)
                                                                                                                      <##core#variable (c1052)>>
                                                                                                                    <##core#variable (k474)>>
                                                                                                                  
                                                                                                                      >
                                                                                                                    <##core#call (#t ("c5.scm:24" "g69") f_459 #t)
                                                                                                                      <##core#ref (3)
                                                                                                                        <##core#variable (c1052)>>
                                                                                                                      <##core#variable (k496)>
                                                                                                                      <##core#variable (r501)>>>>
                                                                                                                <##core#call (#t #f)
                                                                                                                  <##core#variable (k474)>
                                                                                                                  <##core#inline ("C_slot")
                                                                                                                    <##core#ref (4)
                                                                                                                      <##core#variable (c1052)>>
                                                                                                                    >>>>
                                                                                                            <##core#variable (g6876)>
                                                                                                            <##core#variable (map-loop6381)>
                                                                                                            <##core#variable (g6978)>
                                                                                                            <##core#variable (g6777)>>>
                                                                                                        <##core#call (#t #f f_473 #t)
                                                                                                          <##core#unbox ()
                                                                                                            <##core#variable (map-loop6381)>>
                                                                                                          <##core#ref (2)
                                                                                                            <##core#variable (c1042)>>
                                                                                                          <##core#variable (r454)>>>>>>>>>>>
                                                                                      <##core#variable (m49)>
                                                                                      <##core#ref (4)
                                                                                        <##core#variable (c1034)>>>
                                                                                    
                                                                                          <##core#ref (5)
                                                                                            <##core#variable (c1034)>>>
                                                                                        <##core#inline ("C_i_lessp")
                                                                                          <##core#ref (5)
                                                                                            <##core#variable (c1034)>>
                                                                                          >
                                                                                        >
                                                                                      
                                                                                        <##core#call (#t #f f_455 #t)
                                                                                          <##core#variable (k453)>
                                                                                          <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                            <##core#ref (3)
                                                                                              <##core#variable (c1034)>>
                                                                                            <##core#variable (x48)>
                                                                                            >>
                                                                                        
                                                                                              <##core#ref (5)
                                                                                                <##core#variable (c1034)>>>
                                                                                            <##core#inline ("C_i_lessp")
                                                                                              <##core#ref (5)
                                                                                                <##core#variable (c1034)>>
                                                                                              >
                                                                                            >
                                                                                          
                                                                                            <##core#call (#t #f f_455 #t)
                                                                                              <##core#variable (k453)>
                                                                                              <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                                <##core#variable (x48)>
                                                                                                <##core#ref (3)
                                                                                                  <##core#variable (c1034)>>
                                                                                                >>
                                                                                            
                                                                                                  <##core#ref (5)
                                                                                                    <##core#variable (c1034)>>>
                                                                                                <##core#inline ("C_i_lessp")
                                                                                                  <##core#ref (5)
                                                                                                    <##core#variable (c1034)>>
                                                                                                  >
                                                                                                >
                                                                                              
                                                                                                <##core#call (#t #f f_455 #t)
                                                                                                  <##core#variable (k453)>
                                                                                                  <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                                    
                                                                                                    <##core#ref (3)
                                                                                                      <##core#variable (c1034)>>
                                                                                                    <##core#variable (x48)>>>
                                                                                                
                                                                                                      <##core#ref (5)
                                                                                                        <##core#variable (c1034)>>>
                                                                                                    <##core#inline ("C_i_lessp")
                                                                                                      <##core#ref (5)
                                                                                                        <##core#variable (c1034)>>
                                                                                                      >
                                                                                                    >
                                                                                                  
                                                                                                    <##core#call (#t #f f_455 #t)
                                                                                                      <##core#variable (k453)>
                                                                                                      <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                                        
                                                                                                        <##core#variable (x48)>
                                                                                                        <##core#ref (3)
                                                                                                          <##core#variable (c1034)>>>>
                                                                                                    
                                                                                                          <##core#ref (5)
                                                                                                            <##core#variable (c1034)>>>
                                                                                                        <##core#inline ("C_i_lessp")
                                                                                                          <##core#ref (5)
                                                                                                            <##core#variable (c1034)>>
                                                                                                          >
                                                                                                        >
                                                                                                      
                                                                                                        <##core#call (#t #f f_455 #t)
                                                                                                          <##core#variable (k453)>
                                                                                                          <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                                            <##core#variable (x48)>
                                                                                                            
                                                                                                            <##core#ref (3)
                                                                                                              <##core#variable (c1034)>>>>
                                                                                                        
                                                                                                              <##core#ref (5)
                                                                                                                <##core#variable (c1034)>>>
                                                                                                            <##core#inline ("C_i_lessp")
                                                                                                              <##core#ref (5)
                                                                                                                <##core#variable (c1034)>>
                                                                                                              >
                                                                                                            >
                                                                                                          
                                                                                                            <##core#call (#t #f f_455 #t)
                                                                                                              <##core#variable (k453)>
                                                                                                              <##core#inline_allocate ("C_a_i_list3" 9)
                                                                                                                <##core#ref (3)
                                                                                                                  <##core#variable (c1034)>>
                                                                                                                
                                                                                                                <##core#variable (x48)>>>
                                                                                                            
                                                                                                              <##core#call (#t #f f_455 #t)
                                                                                                                <##core#variable (k453)>
                                                                                                                <##core#variable (r549887)>>>>>>>>>>>>>>>>>>>>>>>
                                                                    <##core#variable (a440)>
                                                                    <##core#variable (b46)>
                                                                    <##core#variable (c47)>
                                                                    <##core#variable (k437)>
                                                                    <##core#variable (h44)>>
                                                                  
                                                                          <##core#ref (1)
                                                                            <##core#variable (c1068)>>
                                                                          <##core#variable (r583)>>>
                                                                      <##core#variable (k447)>>
                                                                    <##core#call (#f "##sys#/-2")
                                                                      <##core#variable (##sys#/-2)>
                                                                      <##core#variable (k582)>
                                                                      <##core#variable (h44)>
                                                                      >>>>>>>>>
                                                    <##core#variable (k589)>
                                                    <##core#variable (a593)>>
                                                  
                                                    
                                                      
                                                          <##core#variable (a605)>>
                                                        <##core#call (#f "##sys#/-2")
                                                          <##core#variable (##sys#/-2)>
                                                          <##core#variable (k599)>
                                                          <##core#variable (a602)>
                                                          <##core#variable (a603)>>>>>>>>>>>>
                                    
                                        >
                                      
                                        >
                                          >
                                            
                                              >
                                                            
                                                                      >
                                                                        
                                                                            <##core#closure (5)
                                                                              <##core#lambda (f_943 #t (c1085 a939 a940 a941 i931) 171)
                                                                                <##core#switch (2)
                                                                                  <##core#variable (i931)>
                                                                                  
                                                                                  
                                                                                    
                                                                                      
                                                                                        >
                                                                                          
                                                                                                    >
                                                                                                  <##core#call (#t #f)
                                                                                                    <##core#ref (1)
                                                                                                      <##core#variable (c1091)>>
                                                                                                    <##core#inline_allocate ("C_s_a_i_plus" 29)
                                                                                                      <##core#variable (r635)>
                                                                                                      <##core#ref (2)
                                                                                                        <##core#variable (c1091)>>>>>>
                                                                                              <##core#variable (k632)>
                                                                                              <##core#variable (img133)>>
                                                                                            <##core#call (#t #f va971 #t)
                                                                                              <##core#variable (va971)>
                                                                                              <##core#inline_allocate ("C_s_a_i_times" 33)
                                                                                                <##core#variable (x127)>
                                                                                                <##core#variable (y128)>>>>>>>>
                                                                                  
                                                                                  
                                                                                    
                                                                                      
                                                                                        >
                                                                                          
                                                                                              <##core#variable (x120)>>
                                                                                            
                                                                                                <##core#variable (y121)>>
                                                                                              
                                                                                                  <##core#variable (a626)>>
                                                                                                <##core#call (#t #f)
                                                                                                  <##core#variable (k621)>
                                                                                                  <##core#inline_allocate ("C_a_i_flonum_plus" 4)
                                                                                                    <##core#variable (a622)>
                                                                                                    <##core#variable (real126)>>>>>>>>>>
                                                                                  
                                                                                            
                                                                                              
                                                                                                  <##core#variable (a652)>>
                                                                                                
                                                                                                  
                                                                                                    
                                                                                                        <##core#variable (a655)>>
                                                                                                      
                                                                                                          <##core#variable (a653)>>
                                                                                                        
                                                                                                            >
                                                                                                          
                                                                                                                  >
                                                                                                                    <##core#call (#t #f)
                                                                                                                      <##core#ref (2)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#variable (r647888)>>>
                                                                                                                  
                                                                                                                          >
                                                                                                                                  
                                                                                                                                      >
                                                                                                                                    <##core#call (#f ("c5.scm:49" "iterate") f_644 #t)
                                                                                                                                      <##core#variable (iterate134)>
                                                                                                                                      <##core#ref (2)
                                                                                                                                        <##core#variable (c1117)>>
                                                                                                                                      <##core#ref (3)
                                                                                                                                        <##core#variable (c1117)>>
                                                                                                                                      <##core#variable (r669)>
                                                                                                                                      <##core#variable (a671)>>>>>
                                                                                                                              <##core#ref (1)
                                                                                                                                <##core#variable (c1114)>>
                                                                                                                              <##core#ref (2)
                                                                                                                                <##core#variable (c1114)>>
                                                                                                                              <##core#variable (a663)>>
                                                                                                                            <##core#call (#f ("c5.scm:49" "y*") f_943 #t)
                                                                                                                              <##core#unbox ()
                                                                                                                                <##core#ref (3)
                                                                                                                                  <##core#variable (c1114)>>>
                                                                                                                              <##core#variable (k668)>
                                                                                                                              <##core#ref (4)
                                                                                                                                <##core#variable (c1114)>>
                                                                                                                              <##core#ref (5)
                                                                                                                                <##core#variable (c1114)>>
                                                                                                                              >>>>
                                                                                                                      <##core#ref (1)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#ref (2)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#ref (3)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#ref (4)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#ref (5)
                                                                                                                        <##core#variable (c1111)>>>
                                                                                                                    <##core#call (#f ("c5.scm:49" "x*") f_943 #t)
                                                                                                                      <##core#unbox ()
                                                                                                                        <##core#ref (3)
                                                                                                                          <##core#variable (c1111)>>>
                                                                                                                      <##core#variable (k664)>
                                                                                                                      <##core#ref (4)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      <##core#ref (5)
                                                                                                                        <##core#variable (c1111)>>
                                                                                                                      >>>>
                                                                                                              <##core#variable (count137)>
                                                                                                              <##core#variable (k645)>
                                                                                                              <##core#ref (1)
                                                                                                                <##core#variable (c1101)>>
                                                                                                              <##core#variable (x135)>
                                                                                                              <##core#variable (y136)>>
                                                                                                            
                                                                                                              <##core#call (#t #f f_659 #t)
                                                                                                                <##core#variable (k657)>
                                                                                                                <##core#variable (tmp138140)>>
                                                                                                              
                                                                                                                <##core#call (#t #f f_659 #t)
                                                                                                                  <##core#variable (k657)>
                                                                                                                  <##core#inline ("C_i_greater_or_equalp")
                                                                                                                    <##core#variable (a673)>
                                                                                                                    >>>>>>>>>>>>>>
                                                                                        <##core#ref (3)
                                                                                          <##core#variable (c1085)>>>>
                                                                                    <##core#call (#t #f f_644 #t)
                                                                                      <##core#variable (iterate134)>
                                                                                      <##core#ref (4)
                                                                                        <##core#variable (c1085)>>
                                                                                      
                                                                                      
                                                                                      >>>>
                                                                              <##core#variable (img117)>
                                                                              <##core#variable (real116)>
                                                                              <##core#variable (dispatch930)>
                                                                              <##core#variable (k618)>>>
                                                                          <##core#call (#t #f f_943 #t)
                                                                            <##core#unbox ()
                                                                              <##core#variable (dispatch930)>>
                                                                            
                                                                            
                                                                            
                                                                            >>>>>>>
                                                              
                                                                      
                                                                        
                                                                            
                                                                            
                                                                            >
                                                                          
                                                                                                                            <##core#ref (1)
                                                                                                                              <##core#variable (c1141)>>>>
                                                                                                                        <##core#ref (1)
                                                                                                                          <##core#variable (c1139)>>>
                                                                                                                      <##core#call (#f "##sys#implicit-exit-handler")
                                                                                                                        <##core#variable (##sys#implicit-exit-handler)>
                                                                                                                        <##core#variable (k822)>>>>
                                                                                                                  <##core#ref (1)
                                                                                                                    <##core#variable (c1137)>>>
                                                                                                                
                                                                                                                        
                                                                                                                            <##core#variable (mandelbrod/real)>>
                                                                                                                          
                                                                                                                                  
                                                                                                                                          
                                                                                                                                                  
                                                                                                                                                    
                                                                                                                                                      
                                                                                                                                                          
                                                                                                                                                          
                                                                                                                                                          >
                                                                                                                                                        
                                                                                                                                                                                        >
                                                                                                                                                                                          
                                                                                                                                                                                              <##core#closure (5)
                                                                                                                                                                                                <##core#lambda (f_709 #t (c1170 k710 i166) 191)
                                                                                                                                                                                                  
                                                                                                                                                                                                    
                                                                                                                                                                                                        >
                                                                                                                                                                                                      
                                                                                                                                                                                                          <##core#variable (a715)>>
                                                                                                                                                                                                        <##core#call (#t #f)
                                                                                                                                                                                                          <##core#variable (k710)>
                                                                                                                                                                                                          >
                                                                                                                                                                                                        
                                                                                                                                                                                                                      
                                                                                                                                                                                                                        
                                                                                                                                                                                                                          
                                                                                                                                                                                                                              
                                                                                                                                                                                                                              
                                                                                                                                                                                                                              >
                                                                                                                                                                                                                            >
                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                      >
                                                                                                                                                                                                                                                                    <##core#call (#f ("c5.scm:65" "loop") f_709 #t)
                                                                                                                                                                                                                                                                      <##core#unbox ()
                                                                                                                                                                                                                                                                        <##core#ref (2)
                                                                                                                                                                                                                                                                          <##core#variable (c1192)>>>
                                                                                                                                                                                                                                                                      <##core#ref (3)
                                                                                                                                                                                                                                                                        <##core#variable (c1192)>>
                                                                                                                                                                                                                                                                      <##core#variable (a748)>>>>>
                                                                                                                                                                                                                                                              <##core#ref (1)
                                                                                                                                                                                                                                                                <##core#variable (c1190)>>
                                                                                                                                                                                                                                                              <##core#ref (2)
                                                                                                                                                                                                                                                                <##core#variable (c1190)>>
                                                                                                                                                                                                                                                              <##core#ref (3)
                                                                                                                                                                                                                                                                <##core#variable (c1190)>>>
                                                                                                                                                                                                                                                            <##core#call (#f ("c5.scm:64" "##sys#write-char-0"))
                                                                                                                                                                                                                                                              <##core#variable (##sys#write-char-0)>
                                                                                                                                                                                                                                                              <##core#variable (k742)>
                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                              <##core#ref (4)
                                                                                                                                                                                                                                                                <##core#variable (c1190)>>>>>
                                                                                                                                                                                                                                                        <##core#ref (1)
                                                                                                                                                                                                                                                          <##core#variable (c1188)>>
                                                                                                                                                                                                                                                        <##core#ref (2)
                                                                                                                                                                                                                                                          <##core#variable (c1188)>>
                                                                                                                                                                                                                                                        <##core#ref (3)
                                                                                                                                                                                                                                                          <##core#variable (c1188)>>
                                                                                                                                                                                                                                                        <##core#ref (4)
                                                                                                                                                                                                                                                          <##core#variable (c1188)>>>
                                                                                                                                                                                                                                                      >>
                                                                                                                                                                                                                                                        <##core#call (#t ("c5.scm:64" "##sys#print"))
                                                                                                                                                                                                                                                          <##core#variable (##sys#print)>
                                                                                                                                                                                                                                                          <##core#variable (k739)>
                                                                                                                                                                                                                                                          <##core#variable (r752)>
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          <##core#ref (4)
                                                                                                                                                                                                                                                            <##core#variable (c1188)>>>>>>
                                                                                                                                                                                                                                                  <##core#ref (1)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>
                                                                                                                                                                                                                                                  <##core#ref (2)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>
                                                                                                                                                                                                                                                  <##core#ref (3)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>
                                                                                                                                                                                                                                                  <##core#ref (4)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>
                                                                                                                                                                                                                                                  <##core#ref (5)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>>
                                                                                                                                                                                                                                                <##core#call (#f ("c5.scm:64" "##sys#write-char-0"))
                                                                                                                                                                                                                                                  <##core#variable (##sys#write-char-0)>
                                                                                                                                                                                                                                                  <##core#variable (k736)>
                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                  <##core#ref (4)
                                                                                                                                                                                                                                                    <##core#variable (c1186)>>>>>
                                                                                                                                                                                                                                            <##core#ref (1)
                                                                                                                                                                                                                                              <##core#variable (c1184)>>
                                                                                                                                                                                                                                            <##core#ref (2)
                                                                                                                                                                                                                                              <##core#variable (c1184)>>
                                                                                                                                                                                                                                            <##core#ref (3)
                                                                                                                                                                                                                                              <##core#variable (c1184)>>
                                                                                                                                                                                                                                            <##core#ref (4)
                                                                                                                                                                                                                                              <##core#variable (c1184)>>
                                                                                                                                                                                                                                            <##core#ref (5)
                                                                                                                                                                                                                                              <##core#variable (c1184)>>>
                                                                                                                                                                                                                                          >>
                                                                                                                                                                                                                                            <##core#call (#t ("c5.scm:64" "##sys#print"))
                                                                                                                                                                                                                                              <##core#variable (##sys#print)>
                                                                                                                                                                                                                                              <##core#variable (k733)>
                                                                                                                                                                                                                                              <##core#variable (r756)>
                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                              <##core#ref (4)
                                                                                                                                                                                                                                                <##core#variable (c1184)>>>>>>
                                                                                                                                                                                                                                      <##core#ref (1)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>
                                                                                                                                                                                                                                      <##core#ref (2)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>
                                                                                                                                                                                                                                      <##core#ref (3)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>
                                                                                                                                                                                                                                      <##core#ref (4)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>
                                                                                                                                                                                                                                      <##core#ref (5)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>>
                                                                                                                                                                                                                                    <##core#call (#f ("c5.scm:64" "##sys#write-char-0"))
                                                                                                                                                                                                                                      <##core#variable (##sys#write-char-0)>
                                                                                                                                                                                                                                      <##core#variable (k730)>
                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                      <##core#ref (4)
                                                                                                                                                                                                                                        <##core#variable (c1182)>>>>>
                                                                                                                                                                                                                                <##core#ref (1)
                                                                                                                                                                                                                                  <##core#variable (c1176)>>
                                                                                                                                                                                                                                <##core#ref (2)
                                                                                                                                                                                                                                  <##core#variable (c1176)>>
                                                                                                                                                                                                                                <##core#ref (3)
                                                                                                                                                                                                                                  <##core#variable (c1176)>>
                                                                                                                                                                                                                                <##core#variable (out169172)>
                                                                                                                                                                                                                                <##core#variable (colors168)>>
                                                                                                                                                                                                                              >
                                                                                                                                                                                                                                <##core#call (#t ("c5.scm:64" "##sys#print"))
                                                                                                                                                                                                                                  <##core#variable (##sys#print)>
                                                                                                                                                                                                                                  <##core#variable (k727)>
                                                                                                                                                                                                                                  <##core#variable (r760)>
                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                  <##core#variable (##sys#standard-output)>>>>>>>>>
                                                                                                                                                                                                                  <##core#ref (1)
                                                                                                                                                                                                                    <##core#variable (c1174)>>
                                                                                                                                                                                                                  <##core#ref (2)
                                                                                                                                                                                                                    <##core#variable (c1174)>>
                                                                                                                                                                                                                  <##core#ref (3)
                                                                                                                                                                                                                    <##core#variable (c1174)>>>
                                                                                                                                                                                                                
                                                                                                                                                                                                                    >
                                                                                                                                                                                                                  <##core#call (#t #f f_723 #t)
                                                                                                                                                                                                                    <##core#variable (k721)>
                                                                                                                                                                                                                    >
                                                                                                                                                                                                                  >
                                                                                                                                                                                                                          <##core#inline ("C_u_i_list_ref")
                                                                                                                                                                                                                            <##core#variable (colors)>
                                                                                                                                                                                                                            <##core#variable (r769)>>>>
                                                                                                                                                                                                                      <##core#variable (k721)>>
                                                                                                                                                                                                                    <##core#call (#t ("c5.scm:63" "floor"))
                                                                                                                                                                                                                      <##core#variable (floor)>
                                                                                                                                                                                                                      <##core#variable (k768)>
                                                                                                                                                                                                                      <##core#variable (r719)>>>>>>
                                                                                                                                                                                                            <##core#variable (i166)>
                                                                                                                                                                                                            <##core#ref (1)
                                                                                                                                                                                                              <##core#variable (c1170)>>
                                                                                                                                                                                                            <##core#variable (k710)>>
                                                                                                                                                                                                          
                                                                                                                                                                                                            
                                                                                                                                                                                                                >
                                                                                                                                                                                                              >
                                                                                                                                                                                                                  <##core#variable (a775)>>
                                                                                                                                                                                                                
                                                                                                                                                                                                                    <##core#variable (a773)>>
                                                                                                                                                                                                                  
                                                                                                                                                                                                                    
                                                                                                                                                                                                                        >
                                                                                                                                                                                                                      >
                                                                                                                                                                                                                          <##core#variable (a782)>>
                                                                                                                                                                                                                        
                                                                                                                                                                                                                            <##core#variable (a780)>>
                                                                                                                                                                                                                          <##core#call (#f ("c5.scm:59" "formula"))
                                                                                                                                                                                                                            <##core#ref (4)
                                                                                                                                                                                                                              <##core#variable (c1170)>>
                                                                                                                                                                                                                            <##core#variable (k718)>
                                                                                                                                                                                                                            <##core#variable (a771)>
                                                                                                                                                                                                                            <##core#variable (a778)>>>>>>>>>>>>>>>
                                                                                                                                                                                                <##core#variable (loop165)>
                                                                                                                                                                                                <##core#ref (1)
                                                                                                                                                                                                  <##core#variable (c1167)>>
                                                                                                                                                                                                <##core#ref (2)
                                                                                                                                                                                                  <##core#variable (c1167)>>
                                                                                                                                                                                                <##core#ref (3)
                                                                                                                                                                                                  <##core#variable (c1167)>>>>
                                                                                                                                                                                            <##core#call (#t #f f_709 #t)
                                                                                                                                                                                              <##core#unbox ()
                                                                                                                                                                                                <##core#variable (loop165)>>
                                                                                                                                                                                              <##core#ref (4)
                                                                                                                                                                                                <##core#variable (c1167)>>
                                                                                                                                                                                              >>>>>
                                                                                                                                                                                    <##core#ref (1)
                                                                                                                                                                                      <##core#variable (c1165)>>
                                                                                                                                                                                    <##core#ref (2)
                                                                                                                                                                                      <##core#variable (c1165)>>
                                                                                                                                                                                    <##core#ref (3)
                                                                                                                                                                                      <##core#variable (c1165)>>
                                                                                                                                                                                    <##core#ref (4)
                                                                                                                                                                                      <##core#variable (c1165)>>>
                                                                                                                                                                                  <##core#call (#f ("c5.scm:54" "##sys#write-char-0"))
                                                                                                                                                                                    <##core#variable (##sys#write-char-0)>
                                                                                                                                                                                    <##core#variable (k702)>
                                                                                                                                                                                    
                                                                                                                                                                                    <##core#ref (5)
                                                                                                                                                                                      <##core#variable (c1165)>>>>>
                                                                                                                                                                              <##core#ref (1)
                                                                                                                                                                                <##core#variable (c1163)>>
                                                                                                                                                                              <##core#ref (2)
                                                                                                                                                                                <##core#variable (c1163)>>
                                                                                                                                                                              <##core#ref (3)
                                                                                                                                                                                <##core#variable (c1163)>>
                                                                                                                                                                              <##core#ref (4)
                                                                                                                                                                                <##core#variable (c1163)>>
                                                                                                                                                                              <##core#ref (5)
                                                                                                                                                                                <##core#variable (c1163)>>>
                                                                                                                                                                            <##core#call (#t ("c5.scm:54" "##sys#print"))
                                                                                                                                                                              <##core#variable (##sys#print)>
                                                                                                                                                                              <##core#variable (k699)>
                                                                                                                                                                              <##core#ref (1)
                                                                                                                                                                                <##core#variable (c1163)>>
                                                                                                                                                                              
                                                                                                                                                                              <##core#ref (5)
                                                                                                                                                                                <##core#variable (c1163)>>>>>
                                                                                                                                                                        <##core#ref (1)
                                                                                                                                                                          <##core#variable (c1161)>>
                                                                                                                                                                        <##core#ref (2)
                                                                                                                                                                          <##core#variable (c1161)>>
                                                                                                                                                                        <##core#ref (3)
                                                                                                                                                                          <##core#variable (c1161)>>
                                                                                                                                                                        <##core#ref (4)
                                                                                                                                                                          <##core#variable (c1161)>>
                                                                                                                                                                        <##core#ref (5)
                                                                                                                                                                          <##core#variable (c1161)>>>
                                                                                                                                                                      <##core#call (#t ("c5.scm:54" "##sys#print"))
                                                                                                                                                                        <##core#variable (##sys#print)>
                                                                                                                                                                        <##core#variable (k696)>
                                                                                                                                                                        
                                                                                                                                                                        
                                                                                                                                                                        <##core#ref (5)
                                                                                                                                                                          <##core#variable (c1161)>>>>>
                                                                                                                                                                  <##core#ref (1)
                                                                                                                                                                    <##core#variable (c1159)>>
                                                                                                                                                                  <##core#ref (2)
                                                                                                                                                                    <##core#variable (c1159)>>
                                                                                                                                                                  <##core#ref (3)
                                                                                                                                                                    <##core#variable (c1159)>>
                                                                                                                                                                  <##core#ref (4)
                                                                                                                                                                    <##core#variable (c1159)>>
                                                                                                                                                                  <##core#ref (5)
                                                                                                                                                                    <##core#variable (c1159)>>>
                                                                                                                                                                <##core#call (#t ("c5.scm:54" "##sys#print"))
                                                                                                                                                                  <##core#variable (##sys#print)>
                                                                                                                                                                  <##core#variable (k693)>
                                                                                                                                                                  <##core#ref (2)
                                                                                                                                                                    <##core#variable (c1159)>>
                                                                                                                                                                  
                                                                                                                                                                  <##core#ref (5)
                                                                                                                                                                    <##core#variable (c1159)>>>>>
                                                                                                                                                            <##core#variable (w-gap155)>
                                                                                                                                                            <##core#ref (1)
                                                                                                                                                              <##core#variable (c1153)>>
                                                                                                                                                            <##core#ref (2)
                                                                                                                                                              <##core#variable (c1153)>>
                                                                                                                                                            <##core#ref (3)
                                                                                                                                                              <##core#variable (c1153)>>
                                                                                                                                                            <##core#variable (out156159)>>
                                                                                                                                                          <##core#call (#t ("c5.scm:54" "##sys#print"))
                                                                                                                                                            <##core#variable (##sys#print)>
                                                                                                                                                            <##core#variable (k690)>
                                                                                                                                                            
                                                                                                                                                            
                                                                                                                                                            <##core#variable (##sys#standard-error)>>>>>>>>
                                                                                                                                              <##core#variable (h-gap154)>
                                                                                                                                              <##core#ref (1)
                                                                                                                                                <##core#variable (c1150)>>
                                                                                                                                              <##core#ref (2)
                                                                                                                                                <##core#variable (c1150)>>>
                                                                                                                                            <##core#call (#f "##sys#/-2")
                                                                                                                                              <##core#variable (##sys#/-2)>
                                                                                                                                              <##core#variable (k684)>
                                                                                                                                              
                                                                                                                                              >>>>
                                                                                                                                      <##core#variable (formula153)>
                                                                                                                                      <##core#ref (1)
                                                                                                                                        <##core#variable (c1147)>>>
                                                                                                                                    <##core#call (#f "##sys#/-2")
                                                                                                                                      <##core#variable (##sys#/-2)>
                                                                                                                                      <##core#variable (k681)>
                                                                                                                                      
                                                                                                                                      >>>>
                                                                                                                              <##core#variable (k677)>>
                                                                                                                            
                                                                                                                                    <##core#variable (mandelbrod/real)>>>>
                                                                                                                              <##core#call (#f ("c5.scm:51" "##sys#get-keyword"))
                                                                                                                                <##core#variable (##sys#get-keyword)>
                                                                                                                                <##core#variable (k678)>
                                                                                                                                
                                                                                                                                <##core#variable (tmp148152)>
                                                                                                                                <##core#variable (a789)>>>>>>>>
                                                                                                                  
                                                                                                                                <##core#ref (1)
                                                                                                                                  <##core#variable (c1213)>>
                                                                                                                                <##core#ref (2)
                                                                                                                                  <##core#variable (c1213)>>>>
                                                                                                                            <##core#variable (k833)>
                                                                                                                            <##core#variable (t190191)>>
                                                                                                                          
                                                                                                                                  <##core#ref (1)
                                                                                                                                    <##core#variable (c1215)>>
                                                                                                                                  <##core#variable (r842)>>>
                                                                                                                              <##core#variable (k834)>>
                                                                                                                            <##core#call (#t ("c5.scm:70" "##sys#stop-timer"))
                                                                                                                              <##core#variable (##sys#stop-timer)>
                                                                                                                              <##core#variable (k841)>>>>>>
                                                                                                                    <##core#call (#t ("c5.scm:70" "##sys#call-with-values"))
                                                                                                                      <##core#proc ("C_u_call_with_values" #t)>
                                                                                                                      <##core#variable (k816)>
                                                                                                                      <##core#variable (a825)>
                                                                                                                      <##core#variable (a831)>>>>>>
                                                                                                            <##core#ref (1)
                                                                                                              <##core#variable (c1135)>>>
                                                                                                          <##core#call (#t ("c5.scm:70" "##sys#start-timer"))
                                                                                                            <##core#variable (##sys#start-timer)>
                                                                                                            <##core#variable (k813)>>>>
                                                                                                      <##core#ref (1)
                                                                                                        <##core#variable (c1133)>>>
                                                                                                    <##core#call (#t ("c5.scm:69" "print"))
                                                                                                      <##core#variable (print)>
                                                                                                      <##core#variable (k810)>
                                                                                                      >>>
                                                                                                <##core#ref (1)
                                                                                                  <##core#variable (c1131)>>>
                                                                                              <##core#call (#f ("c5.scm:68" "##sys#write-char-0"))
                                                                                                <##core#variable (##sys#write-char-0)>
                                                                                                <##core#variable (k807)>
                                                                                                
                                                                                                <##core#ref (2)
                                                                                                  <##core#variable (c1131)>>>>>
                                                                                          <##core#ref (1)
                                                                                            <##core#variable (c1129)>>
                                                                                          <##core#ref (2)
                                                                                            <##core#variable (c1129)>>>
                                                                                        <##core#call (#t ("c5.scm:68" "##sys#print"))
                                                                                          <##core#variable (##sys#print)>
                                                                                          <##core#variable (k804)>
                                                                                          
                                                                                          
                                                                                          <##core#ref (2)
                                                                                            <##core#variable (c1129)>>>>>
                                                                                    <##core#ref (1)
                                                                                      <##core#variable (c1127)>>
                                                                                    <##core#ref (2)
                                                                                      <##core#variable (c1127)>>>
                                                                                  <##core#call (#f ("c5.scm:68" "##sys#write-char-0"))
                                                                                    <##core#variable (##sys#write-char-0)>
                                                                                    <##core#variable (k801)>
                                                                                    
                                                                                    <##core#ref (2)
                                                                                      <##core#variable (c1127)>>>>>
                                                                              <##core#ref (1)
                                                                                <##core#variable (c1122)>>
                                                                              <##core#variable (out182185)>>
                                                                            <##core#call (#t ("c5.scm:68" "##sys#print"))
                                                                              <##core#variable (##sys#print)>
                                                                              <##core#variable (k798)>
                                                                              
                                                                              
                                                                              <##core#variable (##sys#standard-output)>>>>>>>
                                                                  <##core#ref (1)
                                                                    <##core#variable (c1079)>>>
                                                                <##core#call (#t ("c5.scm:67" "print"))
                                                                  <##core#variable (print)>
                                                                  <##core#variable (k792)>
                                                                  >>>>>
                                                        <##core#ref (1)
                                                          <##core#variable (c1077)>>>
                                                      
                                                        >
                                                          
                                                              <##core#closure (5)
                                                                <##core#lambda (f_845 #t (c1218 k846 g104110) 49)
                                                                  >
                                                                    
                                                                              >
                                                                            >>
                                                                                
                                                                                <##core#variable (r854)>>
                                                                              >
                                                                                  <##core#variable (r854)>>
                                                                                >
                                                                                    >
                                                                                  <##core#call (#t #f f_845 #t)
                                                                                    <##core#unbox ()
                                                                                      <##core#ref (3)
                                                                                        <##core#variable (c1220)>>>
                                                                                    <##core#ref (4)
                                                                                      <##core#variable (c1220)>>
                                                                                    <##core#variable (r865)>>>>>>>
                                                                        <##core#ref (1)
                                                                          <##core#variable (c1218)>>
                                                                        <##core#variable (g104110)>
                                                                        <##core#ref (2)
                                                                          <##core#variable (c1218)>>
                                                                        <##core#variable (k846)>>
                                                                      
                                                                          >
                                                                        <##core#call (#t ("c5.scm:29" "g98"))
                                                                          <##core#ref (3)
                                                                            <##core#variable (c1218)>>
                                                                          <##core#variable (k868)>
                                                                          <##core#variable (r873)>>>>
                                                                    <##core#call (#t #f)
                                                                      <##core#variable (k846)>
                                                                      <##core#inline ("C_slot")
                                                                        <##core#ref (4)
                                                                          <##core#variable (c1218)>>
                                                                        >>>>
                                                                <##core#ref (2)
                                                                  <##core#variable (c1077)>>
                                                                <##core#variable (map-loop92109)>
                                                                <##core#ref (3)
                                                                  <##core#variable (c1077)>>
                                                                <##core#ref (4)
                                                                  <##core#variable (c1077)>>>>
                                                            <##core#call (#t #f f_845 #t)
                                                              <##core#unbox ()
                                                                <##core#variable (map-loop92109)>>
                                                              <##core#variable (k613)>
                                                              <##core#variable (r611)>>>>>>>
                                                  <##core#ref (1)
                                                    <##core#variable (c1020)>>
                                                  <##core#variable (g97105)>
                                                  <##core#variable (g98107)>
                                                  <##core#variable (g96106)>>
                                                
                                                    >
                                                  <##core#call (#t ("c5.scm:29" "srfi-1#iota"))
                                                    <##core#variable (srfi-1#iota)>
                                                    <##core#variable (k610)>
                                                    <##core#variable (a878)>>>>>>>>>>>
                                <##core#ref (1)
                                  <##core#variable (c1018)>>>
                              <##core#call (#f ("c5.scm:1" "chicken.load#load-extension"))
                                <##core#variable (chicken.load#load-extension)>
                                <##core#variable (k429)>
                                
                                
                                >>>
                          <##core#ref (1)
                            <##core#variable (c1016)>>>
                        <##core#callunit (extras)
                          <##core#variable (k426)>>>>
                    <##core#ref (1)
                      <##core#variable (c1014)>>>
                  <##core#callunit (data-structures)
                    <##core#variable (k423)>>>>
              <##core#ref (1)
                <##core#variable (c1012)>>>
            <##core#callunit (eval)
              <##core#variable (k420)>>>>
        <##core#variable (k416)>>
      <##core#callunit (library)
        <##core#variable (k417)>>>>>

flonums added by C-Keen on Wed Aug 23 22:23:05 2017

t9=C_a_i_flonum_times(&a,2,t6,t6);
t10=C_a_i_flonum_times(&a,2,t7,t7);
t11=C_a_i_flonum_difference(&a,2,t9,t10);
av2[1]=C_a_i_flonum_plus(&a,2,t11,t8);

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `foreign-declare'?
Visually impaired? Let me spell it for you (wav file) download WAV