#!/usr/bin/perl

while (<>) {
	$ind=2 if (/^A\d/);
	next if (/^\*\n/);
	print "=" if (/\S/ && ! /^(<|SOURCE|C[FP]\d+|A\d+|\&\&|(FAL|CIE|LIT)-\d+)/ && $ind<=0 && ! ($ind==0 && /^=/));
	print $_;
	$ind--;
}