   ie: (find-scale-name [2 1 2 2 2 2 1]
   :melodic-minor-asc"
   [scale]
-  (find-name scale SCALE))
+  (reverse-get SCALE scale))
 
 (defn find-pitch-class-name
   "Given a midi number representing a note, returns the name of the note

  (if (< 0 (count notes))
    (let [root (first (sort notes))
          adjusted-notes (set (map (fn [x] (- x root)) notes ))]
      (or (find-name (simplify-chord adjusted-notes) CHORD)
          (find-name (compress-chord adjusted-notes) CHORD)))))

(defn find-chord
  [notes]

     (case tuning
           :equal-tempered (nth-equal-tempered-freq base-freq (nth-interval n mode)))))

(defn find-scale-name
  "Return the name of the first matching scale found in SCALE
  or nil if not found
