http://adamsmith.as/typ0/cfml-prototype.mp3

(define (bump)
   (literal 1/2 '((0 3 0 1 1/2))))

(define (lump)
   (after bump
          (tra 2 bump)
          (tra 4 bump)
          (tra 5 bump)))

(define (string-step)
   (literal 2 '((0 4 0 1 2)(1 4 7 1 1)(0 4 2 1 2))))

(define (string-end)
   (literal 2 '((0 4 4 1 1)(1 4 -1 1 1))))

(define (song)
   (choose (vol 2/3 string-end)
           (tra +2 (after (during string-step
                                 (after lump (tra -4 lump)))
                         song))))

(perform song 120 (pc:scale 0 'dorian))