#!/afs/athena/contrib/perl/perl

while(<>)
{
	print "COMMENT ",$_;
}

print STDERR "Make sure to read the code.  Some translation is approximate\n";