#!/usr/bin/perl

system("rm -f *.log *.tex");

@files=split(/\s/,`ls 2011*.tagdat`);

for($i=0;$i<$#files;$i++) {
    $tagdat=$files[$i];
    $gif=$tagdat; $gif=~s/\.tagdat/\.gif/;
    # print STDERR "$tagdat  $gif\n";
    if(!-e $gif) {
	print "mv -f $tagdat garbage\n";
	next;
    }
    $grep=`grep 'y=f(x)<' $tagdat`;
    if($grep=~/y=f\(x\)/) {
	# print $grep;
	print "mv -f $tagdat garbage\n";
	print "mv -f $gif garbage\n";
	next;
	
    }
}