           :pitch (fn ([letter]
                        {:pitch (keyword letter)})
                      ([letter accidental]
-                       {:pitch (keyword (str letter accidental))})) 
+                       {:pitch (keyword (str letter accidental))}))
           :scale (fn [[type & attrs]]
                    (conj {:type type}
                          (if-let [pitch (:pitch (first attrs))]
                            (let [attrs (rest attrs)]
-                             {:pitch pitch 
+                             {:pitch pitch
                               :scale (case (count attrs)
                                        0 :major
                                        1 (if (= (first attrs) :pentatonic)

         blues      = #'(?i)blues'
         pitch      = letter <ows> (sharp | flat | <natural>)?
         letter     = #'[A-Ga-g]'
         sharp      = #'(?i)s(harp)?'
         flat       = #'(?i)f(lat)?' | #'[Bb]'
         <natural>  = #'(?i)n(at(ural)?)?'



         <ows>     = #'[\\s-_]*'
         "))
       (insta/transform
         {:flat (constantly "-flat")
          :sharp (constantly "-sharp")
          :major (constantly :major)
