[1]> ( load 'rbg.l )
;; Loading file rbg.l ...
;; Loaded file rbg.l
T
[2]> ( setf rbg ( 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]> rbg
(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 *fitness* #'fitness-b )
#<STANDARD-GENERIC-FUNCTION FITNESS-B>
[5]> ( setf rbg-i ( new-individual 1 rbg ) )
#<INDIVIDUAL #x000334409CD0>
[6]> ( individual-number rbg-i )
1
[7]> ( display rbg-i )
1     (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) 6     
NIL
[8]> ( funcall *fitness* rbg )
6
[9]> ( setf r ( random-individual ) )
#<INDIVIDUAL #x0003343EA298>
[10]> ( display r )
0     (G B B G B R G B G R B G G G B G R R B B B R B R B) 11    
NIL
[11]> ( setf r ( random-individual ) )
#<INDIVIDUAL #x000334414140>
[12]> ( display r )
0     (G G G R R G G B B G G B G R B G B R B R B G G G G) 7     
NIL
[13]> ( individual-demo )
0     (R R R R B G B B R R G B R R G G G R R R B R G G B) 12    
1     (R R R R B G G B G B R G G R B B G G G R G G R G G) 8     
2     (R B R G R B B R R G G G G R R R R G B B G B B B B) 9     
3     (R R R B R B R R G G G B R R R R G B G R R R B G G) 13    
Fitness of i0 = 12
Fitness of i1 = 8
Fitness of i2 = 9
Fitness of i3 = 13
NIL
[14]>