<> (iterating ?x ?y (100) ?z  ?a ?b) (?((?:) ?:) *\s)
<> (iterating ?x ?y ?n    (1) ?a ?b) (?((?:) ?:) \s\s)

<> (iterating (?x) (?y) (?n) (?c) (?a) (?b)) (
    iterating (?x) (?y) (?n 1 `+) (?a ?a f* ?b ?b f* `+ 4096 `>) 
                                  (?a ?a f* ?b ?b f* `- ?x `+) 
                                  (?a ?b 2048 f* f* ?y `+)
)


<> (?0 ?1 f*) (?0 ?1 `* 1024 `/)
<> (?0 ?1 f/) (?0 1024 `* ?1 `/)
<> (?0 ?1 `?:) ?:

<> (mandelbrot (?x) (?y)) (
    plot-mandelbrot (0) (0) (2529 ?x `/) (2293 ?y `/) (-2048) (-1146)
)

<> (plot-mandelbrot (40) (36) (?r) (?d) (?x) (?y)) ()

<> (plot-mandelbrot (40) (?j) (?r) (?d) (?x) (?y)) (
    ?(?: ?:) \n 
    iterating (?x) (?y) (0) (0) (0) (0)
    plot-mandelbrot (0) (?j 1 `+) (?r) (?d) (-2048) (?y ?d `+)
)

<> (plot-mandelbrot (?i) (?j) (?r) (?d) (?x) (?y)) ( 
    iterating (?x) (?y) (0) (0) (0) (0)
    plot-mandelbrot (?i 1 `+) (?j) (?r) (?d) (?x ?r `+) (?y)
)


mandelbrot (40) (36)