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