oops better to check for real note ons:
(define (sc-harmonize mm ms)
ms
(when (and (note-on-p mm)
(> (note-on-velocity mm) 0))
(loop for i in (pick '(0 3 7) '(0 4 7) )
do
(output (new simple :time 0 :dur .1
:freq (hertz (+ (note-on-key mm) i)))
:to *sc*))))