 ;;;;;;;;;;;;;;
 
 (def child
-  (let [model (->> (rhythm [2/5 3/5 1/5 1/5 3/5]) (all :part :child))
+  (let [model (rhythm [2/5 3/5 1/5 1/5 3/5])
         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))

; Ostinato with variations ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn vary
  "Apply f to the note at time t."
  [t f]
  (fn [notes]

(defn part
  "Generate version of the model using the variations fns."
  [instrument model & variations]
  (let [vary (apply juxt identity variations)]
    (->> model
         vary
         (map #(all :part instrument %)))))

(defn introduce-after
  "Gradually introduce each part after t beats."
