LIB "tst.lib"; tst_init();
LIB "random.lib";
ring r = 0,(a,b,c,d),ds;
sparseid(2,3);"";
sparseid(3,0,4,90,9);
tst_status(1);$