END{for(R=w=24;--R>-w;){for(I=w;--I>-w;){n=R^2+I^2
c=n=1<n?n:3
for(t=1;--c;)t=t*3%n
printf!--t||51236~(n^.5+1)/4?"[]":"  "}print}}