(
  (
  ->body
  ->test
  (
    test!
      (body! loop!)
      ()
    ite
  )->loop
  loop!
  )!
)->while

-1.5 ->xmin
0.47 ->xmax

-1.12 ->ymin
1.12 ->ymax

27 ->itermax

xmin ->x0
ymin ->y0

  (y0 ymax <)
  (
      (x0 xmax <)
      (
        0 ->x
        0 ->y
        0 ->iter

          (x x * y y * + 4 < iter itermax < *)
          (
            x x * y y * - x0 + ->xtemp
            2 x y * * y0 + ->y
            xtemp ->x
            iter 1 + ->iter
          )
        while!

        iter itermax =
          (32 put)
          (64 iter + put)
        ite
        
        x0 0.0055 + ->x0
      )
    while!
    10 put
    y0 0.021 + ->y0
    xmin ->x0
  )
while!