##
##  crunch -- crunch a Perl source file
##  Copyright (c) 1994-1999 Ralf S. Engelschall, <rse@engelschall.com>
##
##  Usage: perl crunch <file >file
##

$first = <STDIN>;
print $first;
print "\n";
print "## THIS PROGRAM WAS AUTOMATICALLY COMPRESSED!\n";
print "## DO NOT EDIT THIS FILE! CHANGE THE SOURCES!\n";
print "\n";

while(<STDIN>) {
    next if (m|^[ \t]*#.*$|);
    next if (m|^[ \t]*$|);
    next if (m|^.+[ \t]+#[^"']+$|); 
    print;
}

