ring r=181,(x,y,z),(c,ls);
ideal id1=maxideal(3);
id1;
ideal id2=x2+xyz,y2-z3y,z3+y5xz;
id2;
ideal id3=intersect(id1,id2);
id3;
ideal id4=id1+id2;
id4;
ideal id5=minbase(id4);
id5;
ideal id6=quotient(id1,id2);
id6;
ideal id7=quotient(id2,id1);
id7;
ring rr=32003 ,(x, y),dp;
ideal i=x;
ideal j=y;
ideal k=intersect(i,j);
k;
LIB "tst.lib";tst_status(1);$