#!/usr/bin/perl

while (<>) {
	chop;
	$w[$#w + 1] = $_;
}

foreach $a (@w) {
	foreach $b (@w) {
		$ab = "$a$b";
		$a_b = "$a $b";
		foreach $c (@w) {
			$abc = "$ab$c";
			$a_b_c = "$a_b $c";
			foreach $d (@w) {
				print "$abc$d\n";
				print "$a_b_c $d\n";
			}
		}
	}
}