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

<mahojin #n>
	<#nn = #n*#n>
	<erase p>
	<setVar vx <_ = #n/2>>
	<setVar vy <_ = #n-1>>
	
	<for (#k 1 #nn)
		<setArray p #k (<vx #x> <vy #y>)>

		<#x1 = (#x + 1) % #n>
		<#y1 = (#y + 1) % #n>

		( <p _ (#x1 #y1)>
		  <setVar vy <_ = (#y - 1 + #n) % #n>>
		 | 
		  <setVar vx <_ = (#x + 1 + #n) % #n>>
		  <setVar vy <_ = (#y + 1 + #n) % #n>>
		)
	>

	<pprint #n>
	;


<mj>
	<for (#i 1 3)
		<mahojin <_ = #i*2+1>>
	>
	;

? <mj>;

