einS=`expr $1 : '\([^.]*\).*'`;
cxt2fca $einS;
tv $einS;
rm $einS.tex;
rm $einS.aux;