[1]> (load 'rbg.l)
;; Loading file rbg.l ...
;; Loaded file rbg.l
T
[2]> *limit*
25
[3]> ( rbg )
B
[4]> ( rbg )
G
[5]> ( rbg )
G
[6]> ( list ( rbg ) ( rbg ) ( rbg ) ( rbg ) ( rbg ) )
(G R G G G)
[7]> ( list ( rbg ) ( rbg ) ( rbg ) ( rbg ) ( rbg ) )
(R R R G B)
[8]> ( rbg-list 12 )
(R R B R R R B B G G B R)
[9]> ( rbg-list 10 )
(G B B G B R G B G R)
[10]> ( rbg-string )
(B G G G B G R R B B B R B R B G G G R R G G B B G)
[11]> ( rbg-string )
(G B G R B G B R B R B G G G G R R R R B G B B R R)
[12]> ( rbg-string )
(G B R R G G G R R R B R G G B R R R R B G G B G B)
[13]>