            (map big horns)
            (map (comp big big) horns)
            (map (comp big big big) (take 3 horns)))
+         ;(map (comp list first))
          (map rand-variations)
-         (map after (range 0 (* 8 18) 8))
-         ;(map first)
+         (map after (range 0 (* 4 18) 4))
          (reduce with)
          (map pan))))
 

  (let [model (->> (rhythm [2/5 2/5 4/5 1/5 1/5]) (all :part :clap2))
        a (omit 9/5)
        b (omit 0)
        c (comp a b)]
    (part model a b c)))

(def third-drum
  (let [model (->> (rhythm [2/5 1/5 2/5]) (all :part :clap3))

(def aga-terumo ; p299
  (let [drums [first-drum second-drum third-drum]]
    (->> drums
         ;(map (comp list first))
         (map rand-variations)
         (map after (range 0 (* 4 3) 4))
         (reduce with))))

(comment
