 
 (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))
+    (chord (+ (note (str (name key-note) octave))
               (degree->interval roman-numeral scale))
            chord-type)))
 

          (when (= 2 count)
            (kick))

          (play instr pitch))
      (at (+ time (* 0.5 dur))
          (c-hat 0.1))
      (apply-at n-time #'play-seq


(def ps (atom []))

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