(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)))
		           (print (if (< mag 4) "#" "."))
		           (set pxx (+ pxx 1)))))
		    (puts "")
		    (set pxy (+ pxy 1))))