 (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

(defmethod live/play-note :clap2 [_]
  ((sample "samples/select-click.wav")))

(defn split [n fraction]
  (fn [notes]
    (let [note (nth notes n)
          first-note (-> note (update-in [:duration] * fraction))
          second-note (-> note
                          (update-in [:duration] * (- 1 fraction))
                          (update-in [:time] + (:duration first-note)))]
      (concat
        (take n notes)
        [first-note second-note]
        (drop (inc n) notes)))))

(definst akadinda [freq 440 vol 0.5]
  (-> (sin-osc freq)

(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
