$N=<>/2;
for$i(0..$N-1){
	for$j(0..$N-1){
		$_[$i][$j]=++$k;
		$_[$i][$j+$N]=++$k;
		$_[$i+$N][$j]=++$k;
		$_[$i+$N][$j+$N]=++$k
	}
}
print"@$_\n"for@_