ring r=7,(x,y),wp(2,3);
  poly f=x2+y3;
  ord(f);
  ring R=7,(x,y),ws(2,3);
  poly f=x2+y3;
  ord(f);
  vector v=[x2,y];
  ord(v);
LIB "tst.lib";tst_status(1);$