 
   (init-latchbell-mod (:rate @latchbell-arg))
   (swap! *beats assoc laserbeam [d _ _ [d d] (vec (repeat 64 0.8)) _ _ d _ _ d _ b _ _ [d d d]])
-  (swap! *beats assoc laserbeam [_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _])
+  (swap! *beats assoc laserbeam [_])
   (swap! *beats assoc latchbell [a _ a _ a _ a _ a _ a _ a _ a _])
   (swap! *beats assoc latchbell [_])
   (swap! *beats assoc laserbeam [d _ _ _ b _ _ d _ _ d _ b _ _ d])

  (swap! *beats assoc grumble [g _ _ _ _ _ _ _ _  _ _ _ _ _ _ _])
  (swap! *beats assoc kick [[1 _ _ [1 1]] [_ _ _ 1] [_ _ 1 _] [_ _ _ [1 1 1]]])
  (swap! *beats assoc kick [_])
  (stop-live-sequencer "beats")

  (reset! *beats beats)
  (stop))

(defn rand-laser []
  (let [dur (/ 60.0 (sequencer-metro :bpm))]

(ns overtone-workspace.beats
  (:use [overtone.live]
        [overtone-workspace sequencer ambi-rand]
        [overtone-workspace.synth grumbles laserbeam latchbell]))

(def kick (sample "resources/kick.wav"))
;; (kick)
