ArrTypeD(S: RING, k: INT): LIST
/**/ use S::=QQ[x,y,z]; /**/ ArrTypeD(S, 3); [x -y, x +y, x -z, x +z, y -z, y +z]