⎕CT←0
A←(-⌽A),0,A←1e¯200 1e¯100 1 1e100 1e200
A∘.|A
0E0 ¯1E100 ¯1E0 ¯1E¯100 ¯1E¯200 0 0E0 0E0
¯1E200 0E0 0E0
0E0 0E0 ¯1E0 ¯1E¯100 ¯1E¯200 0 0E0 0E0
¯1E100 0E0 0E0
0E0 0E0 0E0 ¯1E¯100 ¯1E¯200 0 0E0 0E0 0E0
0E0 0E0
0E0 0E0 0E0 0E0 ¯1E¯200 0 0E0 0E0 0E0
0E0 0E0
0E0 0E0 0E0 0E0 0E0 0 0E0 0E0 0E0
0E0 0E0
¯1E200 ¯1E100 ¯1E0 ¯1E¯100 ¯1E¯200 0 1E¯200 1E¯100 1E0
1E100 1E200
0E0 0E0 0E0 0E0 0E0 0 0E0 0E0 0E0
0E0 0E0
0E0 0E0 0E0 0E0 0E0 0 1E¯200 0E0 0E0
0E0 0E0
0E0 0E0 0E0 0E0 0E0 0 1E¯200 1E¯100 0E0
0E0 0E0
0E0 0E0 1E100 0E0 0E0 0 1E¯200 1E¯100 1E0
0E0 0E0
0E0 0E0 1E200 0E0 0E0 0 1E¯200 1E¯100 1E0
1E100 0E0
The standard explicitly says that the result should never
be the same as the (non-zero) left argument: "If Z is A ,
return zero."
Jay.