   )
 ))
 
-(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))

  ))
))

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

      middle-section
      variation-section
    )
  )
  (play-melody (n-times melody (/ (count chords) 2)) metro (metro))
  (play-progression
    chords
    metro
    (metro)
  )
