#!/usr/local/bin/perl -- # -*- Perl -*-

for ($i=0; $i<6; $i++) {
    $_=<>;
}

$_=<>;
while (!eof) {
    for ($i=0; $i<5; $i++) {
	$_=<>;
    }
    while (1) {
	$_=<>;	chop; s#\s*//.*$##;
	last if ($_==0);
	$_=<>;	chop; s#\s*//.*$##;
	print "$_ ";
	$_=<>;	$_=<>;	chop; s#\s*//.*$##;
	print "$_ ";
	$_=<>;	$_=<>;	chop; s#\s*//.*$##;
	print "$_\n";
    }
    print "\n";
}

