#!/usr/bin/perl

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

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