          (reduce with)
          (map pan))))
 
-(def inverse-pentatonic (comp high pentatonic -))
-
 (comment
   (fx-reverb)
   (map fx-chorus [0 1])
   (map fx-distortion [0 1])
   (->>
     balendoro
-    (where :pitch (comp (temperament/just 66) A inverse-pentatonic))
+    (where :pitch (comp temperament/equal A car))
     (tempo (bpm 120))
     (live/play)
     )

         (canon #(->> % (take 64) (then (rhythm [1/8])) forever (all :part :clap2))))))

(comment
  (live/play (clapping-music))
  )

(defmethod live/play-note :clap1 [_]
  ((sample "samples/click2.wav")))

      (* vol)))

(defmethod live/play-note :default [{:keys [pitch pan]}]
  (when pitch (horn :freq pitch :pan (or 0 pan))))

(defn rand-variations [variations]
  (concat
