samer@0: (import "javax.sound.midi.*")
samer@0: 
samer@0: (define synth (MidiSystem.getSynthesizer))
samer@0: (define c0 (vector-ref (.getChannels synth) 0))
samer@0: (define (open) (.open synth))
samer@0: (define (close) (.close synth))
samer@0: (define (on pitch) (.noteOn c0 pitch 80))
samer@0: (define (off pitch) (.noteOff c0 pitch 0))
samer@0: 
samer@0: (open)