     (tempo (bpm 90))
     live/play))
 
-; Clapping music
+
+
+;;;;;;;;;;;;;;;;;;
+; Clapping Music ;
+;;;;;;;;;;;;;;;;;;
+
 (defn clapping-music []
   (let [forever (comp rand-variations list)
         african-bell-pattern (rhythm [1/8 1/8 1/4 1/8 1/4 1/4 1/8 1/4])]

    (tempo (bpm 120))
    (live/play)))

; Instruments
(definst drum [freq 440 vol 0.5 pan 0]
  (-> (* 2/3 (brown-noise))
      (+ (* 1/2 (sin-osc (* 3 freq))))

  "Generate version of the model using the variations fns."
  [model & variations]
  ((apply juxt identity variations) model))



;;;;;;;;;;;;;;
; Aga Terumo ;
;;;;;;;;;;;;;;

(def child
  (let [model (->> (rhythm [2/5 3/5 1/5 1/5 3/5]) (all :part :child))
