# midi
noteOn = \c n v ! \x . { noteon : [c, n, v] } x
noteOff = \c n v ! \x . { noteoff : [c, n, v] } x
program = \c p ! \x . { program : [c, p] } x
control = \c p v ! \x . { control : [c, p, v] } x
note = \d ! \c n v . [ event (noteOn c n v), wait d, event (noteOff c n v) ]
rest = \d ! [ wait d ]