   (->>
     balendorc
     (where :pitch (comp temperament/equal A inverse-pentatonic))
-    (times 8)
     (tempo (bpm 120))
     (live/play)
     )

(defmethod live/play-note :default [{:keys [pitch]}]
  (when pitch (akadinda pitch)))

(def balendorc
  (let [a (phrase [2 1/2 3/2] (repeat 0))
        b (phrase [1 5/4 3/4 1] (cons nil (repeat 1)))

        d (phrase [2 2] (repeat 2))
        e (phrase [3/2 3/4 7/4] (cons nil (repeat 2)))
        ]
    (->> (rand-variations tete)
         (with (rand-variations ta))
         (with (rand-variations ha))
         (take-while #(-> % :time (< 32))))
    )
  )

