#!/usr/bin/perl

while (<>) {
	$ind=2 if (/^A\d/);
#	next if (/^\*\n/);
	s#\(\"(.+?)\"#\(\'$1\'#;
	s#\*+\n#\n#g;
	s#\*+:#:#g;
        s#([NA])<arg#$1<#g;
#	s#M/F#MF#g;
#	s#S/P#SP#g;
        s#<[^<]+\?>##g;
	s# +# #g;
        s# +\)#\)#g;
	print "=" if (/\S/ && ! /^(<|SOURCE|C[FP]\d+|A\d+|\&\&|(FAL|CIE|LIT)-\d+)/ && $ind<=0 && ! ($ind==0 && /^=/));
	print $_;
	$ind--;
}