#!/usr/bin/perl
$flag = 0;
while (<>) {
    if (/^%%Page:/) {
        if ($flag) {
            print "grestore\n";
        }
        $flag = 1;
        print $_;
        print "gsave\n";
        print ".50 setgray\n";
        print "/Helvetica findfont 12 scalefont setfont\n";
	print "20 20 moveto\n";
	print "(for Bb instruments) show\n";
        print "grestore\n";
    } else {
        print;
    }
}