(C1) SHOW(A([I],[J,R],K,R)+A([I],[J,R,S],K,R,S));
                               J R S      J R
(D1)                          A        + A
                               I,K R S    I,K R
(C2) SHOW(FLUSHND(D1,A,3));
                                     J R
(D2)                                A
                                     I,K R
NZETAR(Z) ==> REALPART(NZETA(Z))
NZETAI(Z) returns IMAGPART(NZETA(Z)). This function is related to the complex error function by
NZETA(Z) = %I*SQRT(%PI)*EXP(-Z^2)*(1-ERF(-%I*Z)).
R[i,j,k,l]*UR[i,j,k,l].
This object is not
automatically simplified since it can be very large.