[1]> ( load 'rbg.l )
;; Loading file rbg.l ...
;; Loaded file rbg.l
T
[2]> ( setf s ( rbg-string ) )
(B G G G R G G G R R R G B R R B R R R B B G G B R)
[3]> s
(B G G G R G G G R R R G B R R B R R R B B G G B R)
[4]> ( setf s ( mutation s ) )
(B G G G R G G B R R R G B R R B R R R B B G G B R)
[5]> ( setf s ( mutation s ) )
(B G G G R G G B R R R G B G R B R R R B B G G B R)
[6]> ( setf s ( mutation s ) )
(B G G G R G G B R R R G B B R B R R R B B G G B R)
[7]> ( setf s ( mutation s ) )
(B G G G R G G B R G R G B B R B R R R B B G G B R)
[8]>