 )
 
 (def melody
-  [:C3 :Bb3 :Eb3 :G3]
+  [:C3 :Bb3 :Eb3 :G3 :Eb3]
 )
 
 (def start [

])

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

      variation
    )
  )
  (play-melody (n-times (/ (count chords) 2.5) melody) metro (metro))
  (play-progression
    chords
    metro
