                           :repeat-length 0
                           :notes (rest notes)}))
           (if-let [m (re-matches #"([-=])[-=]*" (name length))]
-            (merge state {:repeat-length (* (:length state) (count (name length)))
-                          :key (if (= "=" (get m 1)) (:key state) nil)
-                          :notes (rest notes)})
+            (do 
+              (pprint m)
+              (merge state {:repeat-length (* (:length state) (count (name length)))
+                            :key (if (= "=" (get m 1)) (:key state) nil)
+                            :notes (rest notes)}))
             state))
         :else state))))
 


  ;; add some music to the sequencer and start
  ;; (pprint (play sequencer `(:tempo 120 i c d e f g a b > c)))
  (pprint (play sequencer `(=== == =)))
  (println (.getSequence sequencer)))


                      :cc-value 0
                      :tempo 120
                      :length (.getResolution (.getSequence sequencer))
                      :repeat-length (.getResolution (.getSequence sequencer))}
                     (or state {}))]
    (loop [notes notes state state]
      (if (not (empty? notes))
