LIB "tst.lib"; tst_init();
LIB "rootsur.lib";
ring r = 0,(x,y),dp;
whichvariable(x5);
whichvariable(x3y);
tst_status(1);$