#!/usr/bin/awk -f

BEGIN {}
{
	if ($0 ~ /^[0-9] [0-9] [0-9] [0-9]$/) {
		for (i=1; i<=NF; i++) {
			pole[NR][i] = $i
		}
	}
}
END {
	for (r=1; r<=4; r++) {
		for (s=1; s<=NR; s++) {
			printf("%s ", pole[s][r]);
		}
		printf("\n");
	}
}