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}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page