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

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

; Natural numbers
(comment
  (range 0 8))

    (tempo (bpm 90))
    live/play))



;;;;;;;;;;;;;;;;;;
; 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])]
