       (* vol)))
 
 (defmethod live/play-note :default [{:keys [pitch pan]}]
-  (when pitch (horn :freq pitch :pan pan)))
+  (when pitch (horn :freq pitch :pan (or 0 pan))))
 
 (defn rand-variations [variations]
   (concat

         (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))
    (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")))
