p:primep;sum((sum(?princ(if(a:abs(i),b:abs(j),if a=0then(mod(b,4)=3)and p(b)elseif b=0then(mod(a,4)=3)and p(a)else p(a^2+b^2))then"[]"else" "),i,-23,23),newline()),j,-23,23);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).