#!/usr/bin/perl

$|=1;

$sx = shift(@ARGV);
$x=$y=$z=0;
while(<>){
	if(/^$/){
		$z=0;
		$x++;
		print STDERR ".";
		next;
	}
	@v = split;
	for $y (0..$#v){
#	    print "$x $y $z\n";
	    $t{"$x $y $z"} = $v[$y];
	    $maxy = ($y > $maxy) ? $y:$maxy;
	    $maxx = ($x > $maxx) ? $x:$maxx;
	    $maxz = ($z > $maxz) ? $z:$maxz;
	}
	$z++;
}
$x = $sx;
for $y (0..$maxy){
    for $z (0..$maxz){
	print "", $t{"$x $y $z"}, " ";
    }
    print("\n");
}