ring r=0,(x,y,z),dp;
  ideal I=x,y,z,x3,xz;
  sortvec(I);
LIB "tst.lib";tst_status(1);$