[1]> ( load 'rbg.l )
;; Loading file rbg.l ...
;; Loaded file rbg.l
T
[2]> ( setf m ( 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]> ( setf f ( rbg-string ) )
(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)
[4]> ( crossover m f )
(B G G G B R G B G R B G G G B G R R B B B R B R B)
[5]> ( crossover m f )
(B G G G R R G B G R B G G G B G R R B B B R B R B)
[6]> (bye)
Bye.
kate@kate-X510UQ:~/Desktop$