#!perl -w

chdir "..";

for $id ("01".."30") {
   print "$id\n";
   `copy in\\factor.$id.in factor.in`;
   `"C:\\Program Files\\Java\\jdk1.6.0_12\\bin\\java.exe" Main`;
   `move factor.out out\\factor.$id.out`;
   `del factor.in`;
}