perl -Mconstant=Z,20 -l

map{$i=$_/Z,print map{$r=$;=$_/Z;$z=$i;$n=$z*$z,$m=$r*$r,$z=2*$r*$z+$i,$r=$m-$n+$;for a..z;$m<4?$":"+"}-46..Z}-19..Z