#! /usr/bin/perl

print "# this file is generated from badh.source\n" ;
print "# do not edit directly.  edit the source file instead\n" ;

while (<>) {
	s/#.*// ;
	next if (/^$/) ;
	chomp ;
	if (/	OK$/) {
		print "$_\n" ;
	} else {
		print "$_	REJECT\n" ;
	};
} ;