 (defn even-melody# [timing [note & notes]]
   (do
     (at (timing 0) (note# note))
-    (let [next (from 1 timing)]
+    (let [next (from timing 1)]
       (if notes
         (even-melody# next notes)
         next))))

    (at (timing 3) (note# (:base chord1)))
    (at (timing 4) (note# (:base chord2)))
    (at (timing 6) (chord# (dissoc chord2 :base)))
    (let [next (from 8 timing)]
      (if chords
        (rhythm-n-bass# next chords)
        next))))

    (rhythm-n-bass# timing (take 8 (cycle progression))))

(defn first-bit# [timing]
    (even-melody# (speed-up (from timing -1) 2) (map ionian [2 4 5 4 4 2 4]))
    (even-melody# (speed-up (from timing 7) 2) (map ionian [-2 1 2 1 1 -2 1]))
    (even-melody# (speed-up (from timing 15) 2) (map ionian [-2 1 2 1 1 -2 1 2 3 4]))
    (even-melody# (speed-up (from timing 23) 2) (map ionian [-1 -2 -3 0 0 -3 0 1 0 -3]))
    (rhythm-n-bass# timing (take 8 (cycle progression))))

(defn play# [] (-> (bpm 120) (from 2) intro# first-bit# (speed-up 3/2) first-bit#)) 

(play#)
