 
 (defn variation# [timing]
   (-> timing
-    (speed-up 2)
+    (tempo 2)
     (from 9)
     (even-melody# (map ionian [11 11 12 9 7]))
     (from 11)

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

(defn first-bit# [timing]
  (-> timing
    (from -1)
    (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]))
