LIB "tst.lib";
tst_init();

LIB "normal.lib";
ring R =32003,(x,y,z),dp;
ideal I=zy2-zx3-x6;
list pr=normal(I);
def S  =pr[1];       
setring S;         
norid;

ring A =0,(x,y,z),dp;
ideal I=z2+yx2;
LIB"surf.lib";
//plot(I);

list nor=normal (I);
def R   =nor[1]; setring R;
norid; normap;

tst_status(1);$