use locale;

while (<>) {
	($id)=($_=~/(C[FP]\d+-\d+|LIT-\d+|FAL-\d+|CIE-\d+)/);
	$_=~s#\([A-Z<-]+:[a-z]+\)##;
	$_=~s#(IMP|COND)_([123][SP])#PR_$2_$1#;
#	$_=~s#(\(CO.+?\s,)([^)])#$1)$2#g;
	if ($id) {
		print ")\n" if ($mais);
		print $_."(FRASE $id\n";
		$mais=1;
	}
	else {
		print $_ unless (/^#/);
	}
}

print ")";