0fOy=-8to8:fOx=-8to31:?cH(42+10*(aB(aB(x)-aB(y))>4oraB(x)>4aNaB(y)>4));:nE:nE
0fOy=-8to8:fOx=-8to31:printcH(42+10*(aB(aB(x)-aB(y))>4oraB(x)>4aNaB(y)>4));:next:next
0 fory=-8to8:forx=-8to31:printchr$(42+10*(abs(abs(x)-abs(y))>4orabs(x)>4andabs(y)>4));:next:next
