 (def bongo
   (part
     (phrase [3/2 3/4 7/4] (cons nil (repeat 4)))
-    (split 2 5/7)
-    (comp (split 1 1/3) (split 2 5/7))
-    (comp (split 4 1/2) (split 1 1/3) (split 2 5/7))))
+    (split 9/4 5/4)
+    (comp (split 3/2 1/4) (split 9/4 5/4))
+    (comp (split 14/4 1/4) (split 3/2 1/4) (split 9/4 5/4))))
 
 (defn up [notes]
   (->> notes

(def tete
  (part
    (phrase [2 1/2 3/2] (repeat 0))
    (split 0 1/8)
    (comp (split 1 1/7) (split 0 1/8))
    (comp (split 2 1/6) (split 1 1/7) (split 0 1/8))))

(def ta
  (part

(def ha
  (part
    (phrase [1/2 3 1/2] (cons nil (repeat 2)))
    (comp (split 3/2 1/4) (split 1/2 1/4) (split 0 1/4))))

(def tulule
  (part
