     (rand-nth variations)
     (lazy-seq (after 4 (rand-variations variations)))))
 
+(defn rand-variations2 [variations]
+  (concat
+    (rand-nth variations)
+    (lazy-seq (after 2 (rand-variations2 variations)))))
+
 (defn part [model & variations]
   ((apply juxt identity variations) model))
 

    (live/play)
    )
  )

      (* vol)))

(defmethod live/play-note :clap1 [_]
  (clap 225 :pan 0.75))

(defmethod live/play-note :clap2 [_]
  (clap 150 :pan -0.75))

(defmethod live/play-note :clap3 [_]
  (clap 75 :pan 0))

(defn vary [t f]
  (fn [notes]
