#!/usr/bin/perl
#usage: script | timidity - 
use MIDI::Simple;
new_score;
$a=1;  #number of loops 
set_tempo 10**7*6/360;

while($a--){
    noop c1;

for(0..127){patch_change 1,$_;text_event $_;
        for $x(0..127){n $x}
        }
}
write_score *STDOUT{IO};