       variation
     )
   )
-  (play-melody (concat (n-times (/ (count chords) 2) melody) [:Eb4]) metro (metro))
+  (play-melody (n-times (/ (count chords) 2.5) melody) metro (metro))
   (play-progression
     chords
     metro

])

(defn play-chord [notes duration] ( do 
  (defn play-note [note] (organ-cornet note (/ duration 1000) 0.6))
  (if (not (empty? notes))
    (let [
      root (first notes)

)

(def melody
  [:C3 :Bb3 :Eb3 :G3 :Eb3]
)

(def start [
