 (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))))

        ms-per-beat (/ ms-per-minute beats-per-minute)]
    #(+ start (* ms-per-beat %))))

(defn from [offset timing] #(timing (+ offset %)))
(defn speed-up [factor timing] #(timing (/ % factor)))

(def scale 56)
(defn ground [note] (+ scale note))

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