monitor("doe.tmp");
  ring r;
  poly f=x+y+z;
  int i=7;
  ideal I=f,x,y;
  monitor("");
LIB "tst.lib";tst_status(1);$