$n=<>+0;
for$i(1..$n){
	print"@{[map+($i*2-$_)%$n||$n,1..$n]}\n"
}