ring r= (32003,a),(x,y),dp;
  char(r);
  charstr(r);
LIB "tst.lib";tst_status(1);$