; From: Frank Buss <address@hidden>
; Newsgroups: comp.lang.lisp
; Subject: Mandelbrot for the terminal
; Date: Fri, 30 Jul 2004 21:39:05 +0000 (UTC)
; Organization: IT4 Systems GmbH & Co. KG
; Message-ID: <address@hidden>

(loop for y from -1 to 1.1 by 0.1 do
      (loop for x from -2 to 1 by 0.04 do
	    (let* ((c 126)
		   (z (complex x y))
		   (a z))
	      (loop while (< (abs
			      (setq z (+ (* z z) a)))
			     2)
                  while (> (decf c) 32)) 
	      (princ (code-char c))))
      (format t "~%"))