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

      middle-section
      variation-section
    )
    metro
    (metro)
  )

  ))
))

(defn play-melody [melody metro start] ( do
  (def duration (/ (* 2 (beat-length metro)) 1000))
  (defn play-note [note] (organ-cornet note duration))
  (if (not (empty? melody)) (do
    (at (metro start) (play-note (midi->hz (note (first melody)))))
    (play-melody (rest melody) metro (+ start 2))
  ))
))

(defn n-times [items n] 
  (flatten (repeat n items))
)

(defn play [] ( do
  (def chords
    (concat
      starting-section
      middle-section
