LIB "tst.lib"; tst_init();
  ring r=(7,a,b,c),(x,y),wp(2,3);
  parstr(r);
  parstr(2);
  parstr(r,3);
tst_status(1);$