   (chord :Bb3 :major)
 ])
 
-(def variation-section [
+(def variation [
   (chord :G3  :minor)
   (chord :G3  :minor)
   (chord :Ab3 :major)

  ))
))

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

(defn play [] ( do
  (def chords
    (concat
      starting-section
      middle-section
      starting-section
      middle-section
      variation-section
    )
  )
  (play-melody (concat (n-times melody (/ (count chords) 2)) [:Eb4]) metro (metro))
  (play-progression
    chords
    metro

  (chord :C3  :minor7)
])

(def middle [
  (chord :G3  :minor)
  (chord :G3  :minor)
  (chord :Ab3 :major)
