         b (comp (split 6/4 1/4))
         c (comp (split 0 1/4) b)
         d (comp a b)]
-    (part model a b c d)))
+    (part :horn model a b c d)))
 
 (def tulule
   (let [model (phrase [8/4 8/4] (repeat 3))
         a (comp (split 8/4 2/4) (split 0 2/4)) ; 28
         b (comp (split 0 1/4) (split 2/4 1/4) a) ; 6
         c (comp (accent 7/8) (split 3/4 1/8) b)] ; 5
-    (part model a b c)))
+    (part :horn model a b c)))
 
 (def bongo
   (let [model (->> (phrase [3/4 7/4] (repeat 4)) (after 6/4)) ; 5

        b (comp (split 1/4 1/4) a)
        c (comp (accent 2/4) (split 2/4 1/4) b)
        d (comp (skip 0/4) c)]
    (part model a b c d)))

(def ta
  (let [model (->> (phrase [5/4 3/4 4/4] (repeat 1)) (after 4/4))

        b (split 5/5 1/10)
        c (comp (split 17/15 2/15) (split 5/5 2/15) (skip 6/5))
        d (comp (skip 7/5) (skip 6/5))]
    (part :child model a b c d)))

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

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