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


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


            (now)
            0.5))

;;(blue-ks1)
;;(blue-ks1-demo)
;;(stop)
