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

            (now)
            0.5))

;(blue-ks1)


(def ps (atom []))

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