         (run (cons to tos)))
       [from]))
 
-;(demo# (map g-major
+;(even-melody# (map g-major
 ;            (run [0 3 1 3 -1 0])
 ;            ))
 


;(major 2)
;(minor 2)
;(demo# (let [key (comp (partial + 67) major), rest -100]
;         (map key [0 1 2 0 0 1 2 0 2 3 4 rest 2 3 4 rest])))



  (let [play-at# (fn [[ms midi]] (at ms (piano# midi)))]
    (->> notes (map play-at#) dorun)))

(defn even-melody# [pitches]
  (let [times (reductions + (cons (now) (repeat 300)))
        notes (map vector times pitches)]
    (play# notes)
    notes))

;(piano# 50)
;(even-melody# (range 60 73))



