open FILE, ">correctionsNew.txt" or die "cannot open file";
for (my $i = 0; $i < 32; $i++) {
-# print FILE "3 0 20 ".$i." +30\n";
-# print FILE "3 0 22 ".$i." +30\n";
-# print FILE "3 0 23 ".$i." +15\n";
+# print FILE "0 0 1 ".$i." +2\n";
+# print FILE "0 0 3 ".$i." -2\n";
- print FILE "3 1 7 ".$i." 195\n";
+# print FILE "0 0 5 ".$i." -1\n";
+# print FILE "0 0 7 ".$i." -1\n";
+
+# print FILE "0 1 8 ".$i." -1\n";
+# print FILE "0 1 9 ".$i." -1\n";
+
+ print FILE "2 2 12 ".$i." +2\n";
+# print FILE "2 2 13 ".$i." +2\n";
+
+# print FILE "3 0 12 ".$i." -1\n";
+
}