   (chord :Eb4 :major)
   (chord :Bb3 :major)
   (chord :Bb3 :major)
-])
-
-(def starting-section [
-  (chord :Eb3 :major)
-  (chord :Eb3 :major)
-  (chord :C3  :minor)
-  (chord :C3  :minor)
-  (chord :Eb3 :major)
-  (chord :Eb3 :major)
-  (chord :C3  :minor)
-  (chord :C3  :minor)
 ])
 
 (def variation-section [

  (chord :Bb3 :major)
])

(defn play-chord [notes duration] ( do 
  (defn play-note [note] (organ-cornet note (/ duration 1000)))
  (mix 
    (map play-note (map midi->hz notes))
  )
))

(def metro (metronome 200))
(defn beat-length [metro] (- (metro 1) (metro 0))) 

(defn play-progression [progression metro start] ( do

  (:use [overtone.live])
  (:use [overtunes.instruments.organ-cornet])
)

(def starting-section [
  (chord :Eb3 :major)
  (chord :Eb3 :major)
  (chord :C3  :minor7)
  (chord :C3  :minor7)
  (chord :Eb3 :major)
  (chord :Eb3 :major)
  (chord :C3  :minor7)
  (chord :C3  :minor7)
])

(def middle-section [
  (chord :G3  :minor)
