LIB "tst.lib"; tst_init();
  ring r=0,(x,y,z),dp;
  varstr(r);
  varstr(r,1);
  varstr(2);
tst_status(1);$