//
// test script for execute command
//
ring r1=32003,(x,y,z),dp;
r1;
"-------------------------------";
ideal j=x+y,z4+23y;
write(":w save_j",j);
ring r2=0,(x,y,z),Dp;
string s="ideal k="+read("save_j")+";";
execute(s);
k;
"-------------------------------";
listvar(all);
kill r1,r2;
LIB "tst.lib";tst_status(1);$;