                                         (:position state)
                                         (+ (:position state) (or (:repeat-length state) (:length state))))})))
               notes (:notes state)]
-          (recur notes (merge state {:repeat-length nil})))
+          (recur notes (merge state {:repeat-length nil
+                                     :note-octave nil})))
         state))))
 
 (defn play [& [notes sequencer state]]

                accidental-map {"#" 1 "##" 2 "b" -1 "bb" -2 "n" 0 "" nil}
                key-pressure (= "&" (get m 1))
                key (get note-map (get m 2))
                octave (if (= "" (get m 4)) (:octave state) (Integer. (get m 4)))
                accidental (or (get accidental-map (get m 3))
                               (get (:key-signature state) (clojure.string/lower-case (get m 2)))
                               0)]

                                 (= "-" (get m 1)) :end
                                 (= "-" (get m 5)) :begin
                                 :else nil)
                          :key (+ key accidental)
                          :note-octave note-octave
                          :param (if key-pressure :key-pressure :octave)
                          :notes (vec-rest notes)}))
          ;; cc
