(define play-midi-note (lambda (time device pitch velocity duration channel) (callback time 'midi_send device *midi-note-on* channel pitch velocity) (callback (+ time duration) 'midi_send device *midi-note-off* channel pitch velocity)))