$ clisp

<...snip...>

[1]> (load "ca.l")
;; Loading file ca.l ...
;; Loaded file ca.l
T
[2]> (setf ca (make-ca 50 '(X -) #'rule-86))
#<CA #x105DA721>
[3]> (visualize-ca ca)
XX--X---X-XX--X-X-X--XX---XXXXXXXX-XXX--X-XX--X-X-
NIL
[4]> (iterate-ca ca)
NIL
[5]> (visualize-ca ca)
-XXXXX-XX--XXXX-X-XXX-XX-X-------X---XXXX--XXXX-X-
NIL
[6]> (iterate-ca ca)
NIL
[7]> (visualize-ca ca)
X----X--XXX---X-X---X--X-XX-----XXX-X---XXX---X-XX
NIL
[8]> (iterate-ca ca)
NIL
[9]> (visualize-ca ca)
XX--XXXX--XX-XX-XX-XXXXX--XX---X--X-XX-X--XX-XX---
NIL
[10]> (iterate-ca ca)
NIL
[11]> (visualize-ca ca)
-XXX---XXX-X--X--X-----XXX-XX-XXXXX--X-XXX-X--XX-X
NIL
[12]> (iterate-ca ca)
NIL
[13]> (visualize-ca ca)
---XX-X--X-XXXXXXXX---X--X--X-----XXXX---X-XXX-X-X
NIL
[14]> (setf cells (ca-cells ca))
(#<CELL #x105D1AC5> #<CELL #x105D1B15> #<CELL #x105D1B4D> #<CELL #x105D1B85>
 #<CELL #x105D1BBD> #<CELL #x105D1BF5> #<CELL #x10490829> #<CELL #x10490861>
 #<CELL #x10490899> #<CELL #x105D0BFD> #<CELL #x105D0C35> #<CELL #x105D0C6D>
 #<CELL #x105D0CA5> #<CELL #x105D0CDD> #<CELL #x105D0D15> #<CELL #x105D0D4D>
 #<CELL #x105D0D85> #<CELL #x105D0DBD> #<CELL #x105D0DF5> #<CELL #x105D0E2D>
 #<CELL #x105D0E65> #<CELL #x105D0E9D> #<CELL #x105D0ED5> #<CELL #x105D0F0D>
 #<CELL #x105D0F45> #<CELL #x105D0F7D> #<CELL #x105D0FB5> #<CELL #x105D0FED>
 #<CELL #x105D1025> #<CELL #x105D105D> #<CELL #x105D1095> #<CELL #x10591B59>
 #<CELL #x104C1931> #<CELL #x105B1B79> #<CELL #x10521A11> #<CELL #x10531955>
 #<CELL #x1053198D> #<CELL #x105319C5> #<CELL #x105319FD> #<CELL #x10531A35>
 #<CELL #x10531A6D> #<CELL #x104B1785> #<CELL #x104B17BD> #<CELL #x104B17F5>
 #<CELL #x104B182D> #<CELL #x104B1865> #<CELL #x104B189D> #<CELL #x104B18D5>
 #<CELL #x104B190D> #<CELL #x10561639>)
[15]> (cell-history (third cells))
(- X - - X -)
[16]> (iterate-ca ca)
NIL
[17]> (visualize-ca ca)
X-X-X-XXXX--------XX-XXXXXXXXX---X---XX-XX---X-X-X
NIL
[18]> (cell-history (third cells))
(- X - - X - X)
[19]> (iterate-ca ca)
NIL
[20]> (visualize-ca ca)
X-X-X----XX------X-X---------XX-XXX-X-X--XX-XX-X--
NIL
[21]> (cell-history (third cells))
(- X - - X - X X)
[22]> (iterate-ca ca)
NIL
[23]> (visualize-ca ca)
X-X-XX--X-XX----XX-XX-------X-X---X-X-XXX-X--X-XXX
NIL
[24]> (cell-history (third cells))
(- X - - X - X X X)
[25]> (iterate-ca ca)
NIL
[26]> (visualize-ca ca)
X-X--XXXX--XX--X-X--XX-----XX-XX-XX-X---X-XXXX----
NIL
[27]> (cell-history (third cells))
(- X - - X - X X X X)
[28]> (iterate-ca ca)
NIL
[29]> (visualize-ca ca)
X-XXX---XXX-XXXX-XXX-XX---X-X--X--X-XX-XX----XX--X
NIL
[30]> (cell-history (third cells))
(- X - - X - X X X X X)
[31]> (bye)
Bye.