anchor.diff:  (1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0)
   (1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0)
   (0 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 1 0 0 0 0 0)))))
  -;(let ((simple-board (make-array '(5 10)
  -;                         :element-type 'bit
  -;                         :initial-contents '(
  -;                                             (0 0 0 0 0 0 0 0 0 0)
  -;                                             (0 1 0 0 0 1 0 0 0 0)
  -;                                             (0 1 0 0 0 1 0 0 0 0)
  -;                                             (0 1 0 0 0 1 0 0 0 0)
  -;                                             (0 0 0 0 0 0 0 0 0 0)
  -;  ))))
     (format t "~a" ansi-clearscreen)
     (let ((board clisp-board))
       (loop
  
positive.code: ; Generation
  (setf generation 0)
  
  (setf DEBUG-FILE nil)
  ;(setf DEBUG-FILE (open "life.txt" :direction :output :if-exists :supersede))
  
  ;(let ((sweets-board (make-array '(8 57)
  ;              :element-type 'bit
  ;              :initial-contents '(
  ;(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  ;(0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  ;(0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  ;(0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 0 1 1 0 0 0)
  ;(0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 1 0 1 0 0 0 1 0 0 0 0 0)
  ;(0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 0 0 0 1 0 0 1 0 1 1 1 1 1 0 0 1 0 0 0 1 0 0 0 0)
  ;(0 0 0 0 0 0 0 1 0 1 0 0 1 1 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1 0 1 0 0 1 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0)
  ;(0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 1 0 0 0 1 1 1 1 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 1 0 0 1 1 1 1 0 1 1 0 0 1 1 0 0 0 0)))))
  (let ((clisp-board (make-array '(7 42)
         :element-type 'bit
         :initial-contents '(
  
negative.code:       (format t "~aConway's Game of Life~a~%~%" ansi-green ansi-clear)
        (ansi-print-board board)
        (format t "~%~%~aGeneration: ~d~a" ansi-cyan generation ansi-clear)
        (setf board (next-generation board))
        (if (equal generation 1)
          (and (read) (format t "~a" ansi-clearscreen))
  