integer::a(1058)=0
l(m,n)=0**(m*m)*mod(n,4)**2/9*a(abs(n))
do1 i=1,29;1 a(i*2::i)=1/i*2
print'(47a2) ',((" []"(l(i,j)+l(j,i)+a(i*i+j*j):),j=-23,23),i=-23,23)
end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).