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

(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))))

(defn up [notes]
  (->> notes

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

(def ta
  (part
