     (swap! *fn-beats assoc prob-sd (take 32 (cycle [0 0 1.1 0 1.1 0 6 0 6 0 1.1 0 1.1 0 6 0])))
     (swap! *fn-beats assoc prob-hat (take 32 (cycle [10 2 8 2 1 2])))
     (swap! *fn-beats assoc prob-openhh (take 32 (cycle [0 0 0 0 5 0 0 0 0 0 0 0 0 0 5 0]))))
+  (swap! *fn-beats assoc prob-openhh [10])
+  (swap! *fn-beats assoc prob-kick [10])
+  (swap! *fn-beats assoc prob-sd [[[0] [10 _ _ [8]] ] [0 10]])
+
   (do
     (swap! *fn-beats assoc prob-kick [_])
     (swap! *fn-beats assoc prob-sd [_])

  (swap! *fn-beats assoc rand-laser (vec (repeat 16 1)))
  (swap! *fn-beats assoc rand-laser [_])
  (swap! *fn-beats assoc rand-latchbell (vec (repeat 8 1)))
  (swap! *fn-beats assoc rand-latchbell [_])
  (do
    ;; prob-beats

  (swap! *beats assoc latchbell [a a  a  a [a a a]])
  (swap! *beats assoc laserbeam [d c c c b c c d c c d c b c c d])
  (swap! *beats assoc laserbeam (take 16 (cycle [d b c d c b [d] c c [c c c] d])))
  (swap! *beats assoc laserbeam (take 16 (cycle [b [d d] [c c c c c] d [d d]])))
  (swap! *beats assoc laserbeam (vec (repeat 16 c)))
  (swap! *beats assoc grumble [g _ _ _ _ _ _ _ _  _ _ _ _ _ _ _])
  (swap! *beats assoc kick [[1 _ _ [1 1]] [_ _ _ 1] [_ _ 1 _] [_ _ _ [1 1 1]]])
