 (defn first-bit# [timing]
   (-> timing
     (from -1)
-    (speed-up 2)
+    (tempo 2)
     (even-melody# (map ionian [2 4 5 4 4 2 4]))
     (from 9)
     (even-melody# (map ionian [-2 1 2 1 1 -2 1]))

(defn final-chord# [timing]
  (-> timing
    (from -1)
    (speed-up 2)
    (even-melody# (map ionian [11 13 14])))
  (at (timing 0)
      (chord# (update-in I [:i] raise))))

    #(+ start (* ms-per-beat %))))

(defn from [timing offset] #(timing (+ offset %)))
(defn tempo [timing factor] #(timing (/ % factor)))

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