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

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

)

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

(def start [
