 (ns overtunes.songs.before
   (:use [overtone.live])
   (:use [overtunes.instruments.organ-cornet])
+)
+
+(def melody
+  [:C4 :Bb4 :Eb4 :G4]
 )
 
 (def starting-section [

  ))
))

(defn play [] ( 
  (play-progression
    (concat
      starting-section
      middle-section

  )
))

(def metro (metronome 60))
(def bar 4)
(defn beat-length [metro] (- (metro 1) (metro 0))) 
(defn bar-length [metro] (* (beat-length metro) bar))
