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

? (mod 2 3)
2
? (mod 5 2)
1
? ? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (null? (list 1 2 3 4))
NIL
? (null? nil)
T
? (null? 3)
NIL
? (float 1/12)
0.083333336
? (/ 3 12.0)
0.25
? (/ 3 12)
1/4
? ?test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (series test-row 0)
(#i(midi time 0 keynum 60 duration 0.16666667 amplitude 0.083333336 channel 0) #i(midi time 0.16666667 keynum 62 duration 0.5 amplitude 0.25 channel 0) #i(midi time 0.6666667 keynum 69 duration 1.6666666 amplitude 0.8333333 channel 0) #i(midi time 2.3333333 keynum 61 duration 0.33333334 amplitude 0.16666667 channel 0) #i(midi time 2.6666665 keynum 66 duration 1.1666666 amplitude 0.5833333 channel 0) #i(midi time 3.833333 keynum 67 duration 1.3333334 amplitude 0.6666667 channel 0) #i(midi time 5.1666665 keynum 68 duration 1.5 amplitude 0.75 channel 0) #i(midi time 6.6666665 keynum 63 duration 0.6666667 amplitude 0.33333334 channel 0) #i(midi time 7.333333 keynum 65 duration 1.0 amplitude 0.5 channel 0) #i(midi time 8.333333 keynum 70 duration 1.8333334 amplitude 0.9166667 channel 0) #i(midi time 10.166666 keynum 71 duration 2.0 amplitude 1.0 channel 0) #i(midi time 12.166666 keynum 64 duration 0.8333333 amplitude 0.41666666 channel 0))
? (cd "Desktop")
#P"/Users/cburns/Desktop/"
? (events (series test-row 0) "test.mid")
"test.mid"
? (events (list (series test-row 0) (series (reverse test-row) 0)) "test.mid")
"test.mid"
? (list (list 1 2 3 4) (list 5 6 7 8))
((1 2 3 4) (5 6 7 8))
? (append (list 1 2 3 4) (list 5 6 7 8))
(1 2 3 4 5 6 7 8)
? (events (append (series test-row 0) (series (reverse test-row) 0) "test.mid"))
> Error in process listener(4): Too few arguments in function call: 1 provided, at least 2 required. 
> While executing: EVENTS
> Type :POP to abort.
Type :? for other options.
1 > :pop

? (events (append (series test-row 0) (series (reverse test-row) 0)) "test.mid")
"test.mid"
? (events (append 
         (series test-row 0) 
         (series (reverse test-row) 0)) 
        "test.mid")
"test.mid"
? "test.mid"
? "test.mid"
? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (reverse test-row)
(5 12 11 6 4 9 8 7 2 10 3 1)
? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (define example-list '(1 2 3 4))
? (null? example-list)
NIL
? (define example-list nil)
? (null? example-list)
T
?(define example-list '(1 2 3 4))
? (if example-list (+ 2 3) 4)
5
? (define example-list nil)
? (if example-list (+ 2 3) 4)
4
? (append (list 1 2 3 4) 5)
(1 2 3 4 . 5)
? (append (list 1 2 3 4) (list 5))
(1 2 3 4 5)
? ? ? (attach (list 1 2 3) 4)
(1 2 3 4)
? (rotate-left (list 1 2 3 4))
(2 3 4 1)
? ? (attach (list 1 2 3) 4)
(1 2 3 4)
? (rotate-left (list 1 2 3 4))
(2 3 4 1)
? (rotate-left (rotate-left (list 1 2 3 4)))
(3 4 1 2)
? (rotate-left (list 1 2 3 4))
(2 3 4 1)
? (rotate-left (list 1 2 3 4))
(2 3 4 1)
? (rotate-left (list 1 2 3 4))
(2 3 4 1)
? (rotate-left (rotate-left (list 1 2 3 4)))
(3 4 1 2)
? (rotate-left test-row)
(3 10 2 7 8 9 4 6 11 12 5 1)
? (rotate-left (rotate-left test-row))
(10 2 7 8 9 4 6 11 12 5 1 3)
? (rotate-left test-row)
(3 10 2 7 8 9 4 6 11 12 5 1)
? ? ? ? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (rotate-left-n-times test-row 4)
(7 8 9 4 6 11 12 5 1 3 10 2)
? ? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (rotate-right test-row)
(5 1 3 10 2 7 8 9 4 6 11 12)
? (length test-row)
12
? ? (rotate-right test-row)
(5 1 3 10 2 7 8 9 4 6 11 12)
? ? (rotate-right test-row)
(5 1 3 10 2 7 8 9 4 6 11 12)
? ? test-row
(1 3 10 2 7 8 9 4 6 11 12 5)
? (last-element test-row)
5
? ? (all-but-last test-row)
(1 3 10 2 7 8 9 4 6 11 12)
? (rotate-right-with-sweat test-row)
> Error in process listener(4): Undefined function ROTATE-RIGHT-WITH-SWEAT called with arguments ((1 3 10 2 7 8 9 4 6 11 12 5)) .
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry applying ROTATE-RIGHT-WITH-SWEAT to ((1 3 10 2 7 8 9 4 6 11 12 5)).
Type :? for other options.
1 > :pop

? ? (rotate-right-with-sweat test-row)
(5 1 3 10 2 7 8 9 4 6 11 12)
? (define problem-list (list 1 2 3 nil 4 5 6 nil 7 8 9))
? (rotate-left problem-list)
(2 3 NIL 4 5 6 NIL 7 8 9 1)
? (rotate-right problem-list)
(9 1 2 3 NIL 4 5 6 NIL 7 8)
?