 
 (defn mk-midi-string
   "Takes a string or keyword representing a pitch and a number
-  representing an integer and returns a new keyword which is a
+  representing an integer and returns a new string which is a
   concatanation of the two. Throws an error if the resulting midi
   string is invalid.
 
-  (midi-string :F 7)  ;=> :F7
-  (midi-string :Eb 3) ;=> :Eb3"
+  (midi-string :F 7)  ;=> \"F7\"
+  (midi-string :Eb 3) ;=> \"Eb3\""
   [pitch-key octave]
   (let [res (str (name pitch-key) octave)]
     (validate-midi-string! res)

                                n
                                ". Value is out of range. Lowest value is 0"))))
    (keyword? n) (note (name n))
    (string? n) (:midi-note (note-map n))
    :else (throw (IllegalArgumentException. (str "Unable to resolve note: " n ". Wasn't a recognised format (either an integer, keyword, string or nil)")))))

(defn match-note

                     ". Octave is out of range. Lowest octave value is -1")))))
    matches))

(defn note-info
  "Takes a string representing a midi note such as C4 and returns a map
  of note info"
  [midi-string]
