                                         (: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]]

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

                      :time-signature [4 4]
                      :transpose 0
                      :octave 4
                      :note-octave nil
                      :param :octave
                      :cc-value 0
                      :tempo 120
