$ clisp
 
<...snip...>

[1]> (load "lcell.l")
;; Loading file lcell.l ...
;;  Loading file ca.l ...
;;   Loading file utils.l ...
;;   Loaded file utils.l
;;  Loaded file ca.l
;;  Loading file lsystem.l ...
;;  Loaded file lsystem.l
;; Loaded file lcell.l
T
[2]> (setf systems '())
NIL
[5]> (dotimes (i 10 NIL)
(setf temp (make-lsys '((a a b) (b a)) '(a)))
(setf systems (append systems (list temp)))
)
NIL
[3]> systems
(#<LSYS #x106F63B5> #<LSYS #x106F6859> #<LSYS #x106F6C5D> #<LSYS #x106F7061>
 #<LSYS #x106F7465> #<LSYS #x106F7869> #<LSYS #x106F7C6D> #<LSYS #x106F8071>
 #<LSYS #x106F8475> #<LSYS #x106F8879>)
[4]> (setf cal (make-ca-lcells 10 '(X -) #'rule-86 systems))
#<CA #x106BA195>
[5]> (visualize-ca-lcells cal)
XX---XXXXX
0123456789
NIL
[6]> (iterate-ca cal)
NIL
[7]> (visualize-ca-lcells cal)
-XX-X-----
0123456789
NIL
[8]> (iterate-ca cal)
NIL
[9]> (visualize-ca-lcells cal)
X-X-XX----
0123456789
NIL
[10]> (iterate-ca cal)
NIL
[11]> (visualize-ca-lcells cal)
X-X--XX--X
0123456789
NIL
[12]> (iterate-ca cal)
NIL
[13]> (visualize-ca-lcells cal)
X-XXX-XXX-
0123456789
NIL
[14]> (visualize-lsys (lcell-lsystem (nth 3 (ca-cells cal))))
Generation 0: (A)
NIL
[15]> (iterate-lsys (lcell-lsystem (nth 3 (ca-cells cal))))
NIL
[16]> (visualize-lsys (lcell-lsystem (nth 3 (ca-cells cal))))
Generation 1: (A B)
NIL
[17]> (bye)
Bye.