LIB "lib";
intvec all = 5,4,3,2,1;
intvec l = 1,1,1,1,1;
permute1(5);
LIB "tst.lib";tst_status(1);$