LIB "tst.lib"; tst_init();
LIB "alexpoly.lib";
intvec v=2,1,1;
multseq2charexp(v);
intvec v1=4,2,2,1,1;
multseq2charexp(v1);
tst_status(1);$