my $ i = 0;

for my $w ('1'..'2') {
	for my $x ('1'..'3') {
		for my $y ('1'..'1') {
			for my $z ('1'..'3') {
				$i++;
				print "$w $x $y $z\n";
			}
		}
	}
}
print $i ."\n\n";