$/="\n#";
while (<>) {
	$tod++;
	($cab,$z)=($_=~/(.+?)\n(.+)/s);
	@abr=($z=~/\(/g);
	@fex=($z=~/\)/g);
        @qabr=($z=~/\{/g);
        @qfex=($z=~/\}/g);
	($k=$z)=~s#[^\(\)]##g;
#	$k=~s#\(\)##g;
	{} while ($k=~s#\(\)##g);
#	print $_ and $val++ unless ($z=~/\n\(+[\W]/);
#	print $_ and $val++ unless ($z=~/\(\S+ \w+ /);
#	print $_ and $val unless ($z=~/ \w+ \(/);
#	next if (/FAL-5\d\d\d/);
	next if (/CF3991|CF5883|CF[45]\d\d\d/);
	print "$_" and $val++ unless ($k ne ""); # || $cab=~/Questão de ordem/);
}

print STDERR $val."/".$tod."\n";