You should append the below following comand to "vect.mac".
tellsimpafter(etrue.etrue~ttrue,0)$
/***********example********************/
kill(all)$
load(vect)$
declare([e11,e12,e13,e21,e22,e23],nonscalar)$
e11:e22~e23$
e12:e23~e21$
e13:e21~e22$
s2:vectorsimp(e12~e13),expandcrosscross ;
tellsimpafter(etrue.etrue~ttrue,0)$
ev(s2);
/**********************************/