(define xhid_listener (lambda (beat dur) (xhid_read hid) (callback (*metro* (+ beat (* .5 dur))) 'xhid_listener (+ beat dur) 1/8)))