#!/usr/bin/perl -w
#
my $quote=0;
while (<STDIN>) {
	chomp;
	$quote = 1 if  /^%\s+--/ ;
	$quote = 0 if  /^%$/ ;
	if ( $quote ) {
		s/^%//;
	}
	print "$_\n";
}
exit 0;