   (interactive)
   (switch-to-buffer "*evolution-game*")
   (evolution-mode)
-  (font-lock-mode))
+  (font-lock-mode)
+  (evolution-start))
 
 (define-derived-mode evolution-mode
   special-mode "Evolution"

                  (insertc "|" "brown" nil)))
  (redisplay t))

(defun evolution ()
  (interactive)
  (draw-world)
  (newline)

                         below x
                         do (update-world)
                         (draw-world))
                 (evolution))))))))

