LIB "tst.lib"; tst_init(); ring r = 0,A,dp; r; 2A; 2A == 2*A; kill r; ring r = (0,a),(A),dp; r; 2*a; 2*A; 2A; 2A == 2*A; tst_status(1);$