sorry forgot the sound! (with-sound () (loop for p in (jscale 220.0 1 9/8 5/4 4/3 3/2 5/3 15/8 2) for start = 0 then (+ start .25) do (fm-violin start 1 (elt pitches i) .1)))