(do (set pxy 0) (while (< pxy 30) (set cim (/ (- pxy 15) 15)) (set pxx 0) (while (< pxx 60) (set cre (/ (- pxx 40) 20)) (set i 0) (set zim cim) (set zre cre) (while (< i 25) (set nzre (+ cre (- (* zre zre) (* zim zim)))) (set nzim (+ cim (* 2 (* zre zim)))) (set zre nzre) (set zim nzim) (set i (+ i 1))) (set mag (+ (* zre zre) (* zim zim))) (print (if (< mag 4) "#" ".")) (set pxx (+ pxx 1))) (puts "") (set pxy (+ pxy 1))))