        llive/play))
 
 (defn play-arohanam-and-avarohanam [{:keys [arohanam avarohanam] :as ragam}]
-  (play-phrase (phrase (concat arohanam avarohanam) nil 2)))
+  (play-phrase (phrase (concat arohanam avarohanam) nil (:middle kalams))))
 
 (defn string->phrase [ragam s]
   (let [swaram "[.]*[A-z][.]*"

(def shruthi :c)
(def tempo 80)
(def jathi 4)

(defn default-durations [num-swarams]
  (take num-swarams (repeatedly (constantly jathi))))

        split-seq (re-seq (re-pattern swaram-with-duration) s)
        swarams (map #(keyword (re-find (re-pattern swaram) %)) split-seq)
        durations (map #(count (s/replace % #"\." "")) split-seq)]
    (phrase ragam swarams durations (:middle kalams))))

(defn play-string [raga string]
  (play-phrase
