/\\\          
---\\\---------
----\\\--------
----/\\\------- Common Music 2.6.0
---/--\\\------
--/----\\\-----
 /      \\\/   

? ? (random-list 15)
(9 8 5 2 8 0 0 9 1 10 1 1 3 5 10)
? (random-list 15)
(7 8 11 8 7 0 1 7 3 10 2 11 6 2 9)
? (random-list 15)
(11 2 8 7 5 5 4 11 11 10 0 6 4 6 0)
? (random-list 15)
(3 11 11 2 9 7 0 8 10 10 6 1 2 3 5)
? (random-list 15)
(7 8 6 4 10 11 2 4 11 11 4 10 11 11 2)
? (define fred (random-list 15))
? fred
(6 1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? fred
(6 1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? fred
(6 1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? ? ? (add-one fred)
(7 2 8 8 6 10 1 12 4 1 10 4 2 12 9)
? fred
(6 1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? (add-one (add-one fred)
)
(8 3 9 9 7 11 2 13 5 2 11 5 3 13 10)
? ? (sum-list fred)
> Error in process listener(4): Too few arguments in function call: 1 provided, at least 2 required. 
> While executing: SUM-LIST
> Type :POP to abort.
Type.\ :? for other options.
1 > :pop

? (sum-list fred 0)
81
? ;Compiler warnings :
;   Undefined function SUM-LIST-HELPER, in SUM-LIST.
? ? (sum-list fred)
81
? (sum-list nil)
0
? (sum-list (list 1 2 3 4))
10
? (define barney (list (list 1 2 3 4) (list 2 3 4 1) (list 3 4 1 2) (list 4 1 2 3)))
? barney
((1 2 3 4) (2 3 4 1) (3 4 1 2) (4 1 2 3))
? (length barney)
4
? (length (car barney))
4
? (car barney)
(1 2 3 4)
? (cdr (car barney))
(2 3 4)
? (nth (random (length barney)) barney)
(3 4 1 2)
? (nth (random (length barney)) barney)
(2 3 4 1)
? (nth (random (length barney)) barney)
(1 2 3 4)
? (nth (random (length barney)) barney)
(3 4 1 2)
? (reverse (car barney))
(4 3 2 1)
? (nth 0 barney)
(1 2 3 4)
? (nth 1 barney)
(2 3 4 1)
? (nth 2 barney)
(3 4 1 2)
? (nth nil barney)
> Error in process listener(4): value NIL is not of the expected type UNSIGNED-BYTE.
> While executing: NTHCDR
> Type :POP to abort.
Type :? for other options.
1 > :pop

? (car (cdr (cdr barney)))
(3 4 1 2)
? fred
(6 1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? (set! fred (cdr fred))
? fred
(1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? fred
(1 7 7 5 9 0 11 3 0 9 3 1 11 8)
? (set! fred (cdr fred))
? fred
(7 7 5 9 0 11 3 0 9 3 1 11 8)
? fred
(7 7 5 9 0 11 3 0 9 3 1 11 8)
? fred
(7 7 5 9 0 11 3 0 9 3 1 11 8)
? (random-list 15)
(0 0 1 6 5 6 7 11 9 7 6 5 0 7 5)
? (set! fred (random-list 15))
? fred
(6 4 2 3 8 10 10 11 8 6 5 1 3 7 11)
? fred
(6 4 2 3 8 10 10 11 8 6 5 1 3 7 11)
? ? (self-swallowing fred)
(6 4 2 3 8 10 10 11 8 6 5 1 3 7 11 4 2 3 8 10 10 11 8 6 5 1 3 7 11 2 3 8 10 10 11 8 6 5 1 3 7 11 3 8 10 10 11 8 6 5 1 3 7 11 8 10 10 11 8 6 5 1 3 7 11 10 10 11 8 6 5 1 3 7 11 10 11 8 6 5 1 3 7 11 11 8 6 5 1 3 7 11 8 6 5 1 3 7 11 6 5 1 3 7 11 5 1 3 7 11 1 3 7 11 3 7 11 7 11 11)
? (self-swallowing (list 1 2 3))
(1 2 3 2 3 3)
? ? (end-swallowing (list 1 2 3))
(1 2 3 1 2 1)
? (reverse (end-swallowing (list 1 2 3)))
(1 2 1 3 2 1)
? (end-swallowing (reverse (list 1 2 3)))
(3 2 1 3 2 3)
? (self-swallowing (reverse (list 1 2 3)))
(3 2 1 2 1 1)
? (reverse (self-swallowing (reverse (list 1`2 3))))
(1 1 2 1 2 3)
?