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