 
 (defun evolution ()
   (draw-world)
-  (fresh-line)
-  (let ((str (read-line)))
+  (newline)
+  (let ((str (read-string "Steps (or 'quit'): ")))
     (cond ((equal str "quit") ())
           (t (let ((x (parse-integer str :junk-allowed t)))
                (if x

    (setf (gethash pos *plants*) t)))

(defun add-plants ()
  (apply #'random-plant *jungle*)
  (random-plant 0 0 *width* *height*))

(defstruct animal x y energy dir genes)

  (add-plants))

(defun draw-world ()
  (erase-buffer)
  (loop for y
     below *height*
     do (progn (fresh-line)
