ring R=0,(x,y),(c,dp);
  [x,y]-[1,x];
  [1,2,x,4][3];
LIB "tst.lib";tst_status(1);$