           (when (= 2 count)
             (kick))
 
-          (play instr pitch))
+          (play-blues instr pitch))
       (at (+ time (* 0.5 dur))
           (c-hat 0.1))
       (apply-at n-time #'play-seq


(defn progression [chord-seq key-note octave scale]
  (for [[roman-numeral chord-type] (partition 2 chord-seq)]
    (chord (+ (resolve-note (str (name key-note) octave))
              (degree->interval roman-numeral scale))
           chord-type)))



(def ps (atom []))

(defn play-blues [instr pitch-classes]
  (doseq [pitch pitch-classes]
    (swap! ps conj pitch)
    (instr pitch)))
