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 pars.rb`;
	`cp ans.png THEATER.$ttt.PNG`;
}