#!/usr/bin/perl
'timidity' . '-';
sub i{eval shift};i do{eval <DATA>},@ARGV[0],
(seek DATA, 0,0 and <DATA>),int rand 2;
__DATA__
$/='; ';(<DATA>)[2];
close STDERR; die 'died!'; warn 'still alive';use MIDI::Simple;
new_score;$a=$_[0]||360;set_tempo 10**7*6/$a;while
($a--){if(eval $_[2]){noop c9;n int(rand 53)+35}
else{noop c1;patch_change 1,int(rand 128);n int
rand 128;}}open Q,"| $_[1]";write_score\*Q