for($i=1;$i<=10;$i++)
{
	if($i<10) {$ttt = '0'.$i;}
	else {$ttt = $i;}	

	`cp THEATER.$ttt.DAT THEATER.DAT`;
	`./a.out > 1.txt`;
 	`ruby pars2.rb > new.mp`;
	`mpost new.mp`;
	`ps2pdf new.1`;
	`cp new.mp THEATER.$ttt.MP`;
	`cp new.1.pdf THEATER.$ttt.PDF`;
}