 LIB "arr.lib";
ring S = 0,(x,y,z),dp;
arr A = arrTypeB(3);
A;
==> _[1]=xy
==> _[2]=x+y
==> _[3]=xz
==> _[4]=x+z
==> _[5]=x
==> _[6]=yz
==> _[7]=y+z
==> _[8]=y
==> _[9]=z
==>
arrRestrict(A,9);
==> _[1]=xy
==> _[2]=x+y
==> _[3]=x
==> _[4]=y
==>
arrRestrict(A,4,"CC");
==> _[1]=1/2yz
==> _[2]=1/2y+z
==> _[3]=y
==> _[4]=z
==>
intvec v=5,8;
arrRestrict(A,v);
==> _[1]=z
==>
