#!/usr/bin/perl -w
use strict;

my $i = 0;

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