#!/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;
	$_="=$_" if (/\S/ && ! /^(<|SOURCE|C[FP]\d+|A\d+|\&\&|(FAL|CIE|LIT)-\d+)/ && $ind<=0 && ! ($ind==0 && /^=/) && $_ ne "\n");
	print $_;
	print $v;
	$v=$_;
	$ind--;
}

print $v;