print "before\n";
for(my $i = 5; $i < 2; $i++) {
	print " # $i\n";
}
print "after\n";