LIB "tst.lib"; tst_init();
LIB "random.lib";
sparsetriag(5,7);"";
sparsetriag(7,5,90);"";
sparsetriag(5,5,0);"";
sparsetriag(5,5,50,100);
tst_status(1);$