 ;; Notes in a typical scale are related by small, prime number ratios. Of all
 ;; possible 7 note scales, the major scale has the highest number of consonant
 ;; intervals.
+
+(defn play
+  [s notes]
+  (doall (map #(s %) notes)))
 
 (defmacro defratio [rname ratio]
   `(defn ~rname [freq#] (* freq# ~ratio)))

  (chord :Bb4 :dim)   ; b flat diminished -> #{70 73 76}
  "
  ([root chord-name]
     (let [root (resolve-note root)
           chord (resolve-chord chord-name)]
       (set (map #(+ % root) chord)))))



  ([root scale-name] (scale root scale-name (range 1 8)))
  ([root scale-name degrees]
     (let [root (note root)
           degrees (resolve-degrees degrees)]
       (cons root (map #(+ root (nth-interval scale-name %)) degrees)))))

