                           (update-in [:time] + fraction))]
       (concat before [first-note second-note] after))))
 
-(definst akadinda [freq 440 vol 0.5]
+(definst akadinda [freq 440 vol 0.5 pan 0]
   (-> (sin-osc freq)
       (+ (* 1/3 (sin-osc (* 2.01 freq))))
       (+ (* 1/2 (sin-osc (* 3.001 freq))))

        (big (big tete)) (big (big ta)) (big (big ha)) (big (big tulule)) (big (big bongo))
        (big (big (big tete))) (big (big (big ta))) (big (big (big ha)))]
       (map rand-variations)
       ;(map first)
       (reduce with)))

(def inverse-pentatonic (comp (partial + 12) pentatonic -))


      (lpf (* 5 440))
      (* (env-gen (adsr 0.01 0.05 0.15 0.2) (line:kr 1 0 0.1) :action FREE))
      (+ (* (env-gen (perc 0.02 0.03)) (* 1/3 (sin-osc (* 0.5 freq)))))
      (pan2 pan)
      (* vol)))

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

(defn rand-variations [variations]
  (concat
