         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)))
+    (part :horn 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 model a b c d)))

(def mother
  (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 father
  (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)

        c (comp (accent 11/4) (split 11/4 1/8) b) ; 17
        d (split 4/4 1/4)
        e (comp (skip 10/4) c)] ; 8
    (part :horn model a b c d e)))

(def ha
  (let [model (->> (phrase [12/4 2/4] (repeat 2)) (after 2/4))
