anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
   ;;;;****************************************************************************
   
  +(defpackage "COM.INFORMATIMAGO.SMALL-CL-PGMS.LIFE"
  +  (:use "COMMON-LISP")
  +  (:export "RANDOM-GAME"
  +           "MAKE-WORLD" "WORLD-CURRENT" "LIFE-STEP" "PRINT-WORLD"))
  +(in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.LIFE")
  +
  +
   (defstruct (world (:constructor %make-world))
     current
     next)
  
positive.code:             (nreverse (list (1- (read s)) (1- (read s)))))
    #-clisp (list 78 23))
  
  
  (defun random-game ()
    (let ((world (apply (function make-world) (terminal-size))))
      (set-random world)
      (format t "~Cc" (code-char 27))
      (loop
         (format t "~C[0;0H" (code-char 27)) ; CUP
         (print-world (life-step world))
         (finish-output))))
  
  
negative.code:        
  
  (defun simple-sum-neighbors (plane i j)
    (+ (aref plane (- i 1)  (- j 1))
       (aref plane (- i 1)  j)
       (aref plane (- i 1)  (+ j 1))
       (aref plane i        (- j 1))
       (aref plane i        (+ j 1))
       (aref plane (+ i 1)  (- j 1))
       (aref plane (+ i 1)  j)
       (aref plane (+ i 1)  (+ j 1))))
  
  
  (defun life-step (world)
  