 ))
 
 (defn play [] ( 
-  (play-progression (concat
-    starting-section
-    middle-section
-    variation-section
+  (play-progression
+    (concat
+      starting-section
+      middle-section
+      variation-section
+    )
+    metro
+    (metro)
   )
-  metro (metro))
 ))

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

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

  (chord :Bb3 :major)
])


(defn play-chord [notes duration] ( do 
  (defn play-note [note] (organ-cornet note (/ duration (* 1000 0.9))))
  (let [
    root (first notes)
    bass (- root 12)
    with-bass (cons bass notes)
  ]
    (mix (map play-note (map midi->hz with-bass)))
  )
))

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

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