
<pprint #n>
	<for (#i #n) 
		<for (#j #n) 
			<printf <p _ (#i #j)> " ">
		>
		<print>
	>
	<print>
	;

<mahojin #n>
	<#n2 = #n/2>
	<#nm2 = -#n2>
	<setVar k 1>
	<for (#i #nm2 #n2)
		<for (#j #n)
			<#x = (#j-#i+#n) % #n>
			<#y = (#j+#i+#n) % #n>
			<setArray p <k #k> (#x #y)>
			<setVar k <_ = #k+1>>
		>
	>
	;


<mj>
	<for (#i 1 5)
		<#n = #i*2+1>
		<mahojin #n>
		<pprint #n>
	>
	;


? <mj>;
