[CM] forgot to add

[Rick Taube]

oops forgot to add that, like cm, you only get microtones if you  
generate floating point keynums!

(define (micro n r k1 k2)
   (go ((i 0 (+ i 1)))
       ((= i n) )
     (send "mp:note" #:key (ran k1 k2)
           #:chan (ran 0 8))
     (wait r)))

(sprout (micro 30 .2 40.0 70.0))