ring r=0,(x,y,z),dp;
  poly f=(3x+6y)^5;
  f;
  cleardenom(f);
LIB "tst.lib";tst_status(1);$