       (pan2 pan)
       (* vol)))
 
-(defmethod live/play-note :clap1 [_]
+(defmethod live/play-note :child [_]
   (drum 225 :pan 0.75))
 
-(defmethod live/play-note :clap2 [_]
+(defmethod live/play-note :mother [_]
   (drum 150 :pan -0.75))
 
-(defmethod live/play-note :clap3 [_]
+(defmethod live/play-note :father [_]
   (drum 75 :pan 0))
 
 (definst horn [freq 440 vol 0.5 pan 0]

  ((apply juxt identity variations) model))

(def first-drum
  (let [model (->> (rhythm [2/5 3/5 1/5 1/5 3/5]) (all :part :clap1))
        a (split 6/5 1/10)
        b (split 5/5 1/10)
        c (comp (split 17/15 2/15) (split 5/5 2/15) (skip 6/5))

    (part model a b c d)))

(def second-drum
  (let [model (->> (rhythm [2/5 2/5 4/5 1/5 1/5]) (all :part :mother))
        a (skip 9/5)
        b (skip 0)
        c (comp a b)
        d #(then % (->> (rhythm (repeat 5 2/5)) (all :part :mother)))]
    (part model a b c d)))

(def third-drum
  (let [model (->> (rhythm [2/5 1/5 2/5]) (all :part :father))
        a (skip 2/5)
        b (skip 3/5)
        c (comp (split 0 1/5) a)
