$ clisp <...snip...> [1]> (load "composition.l") ;; Loading file composition.l ... ;; Loading file utils.l ... ;; Loaded file utils.l ;; Loaded file composition.l T [2]> (setf comp1 (make-composition "Mary Had A Little Lamb" '(B A G A B B B R A A A R B D6 D6 R B A G A B B B B A A B A G))) # [3]> (visualize-composition comp1) Composition-> Title: Mary Had A Little Lamb Data: (B A G A B B B R A A A R B D6 D6 R B A G A B B B B A A B A G) NIL [4]> (setf comp2 (retrograde-composition comp1)) # [5]> (visualize-composition comp2) Composition-> Title: Mary Had A Little Lamb-retrograde Data: (G A B A A B B B B A G A B R D6 D6 B R A A A R B B B A G A B) NIL [6]> (setf comp3 (drop-composition comp1 3)) # [7]> (visualize-composition comp3) Composition-> Title: Mary Had A Little Lamb-drop3 Data: (B A G A B B B R A A A R B D6 D6 R B A G A B B B B A A) NIL ; this next one shows front dropping by retrograding, then dropping, then retrograding again [8]> (setf comp4 (retrograde-composition (drop-composition (retrograde-composition comp1) 3))) # [9]> (visualize-composition comp4) Composition-> Title: Mary Had A Little Lamb-retrograde-drop3-retrograde Data: (A B B B R A A A R B D6 D6 R B A G A B B B B A A B A G) NIL [10]> (bye) Bye.