void Mul(long*a, long Asize, long*b, long Bsize,
long*c, long Csize);
{ long i, j, carry=0;
double tmp;
Csize=Asize+Bsize;
for (i =0; i<Bsize; i++)
{
for (j = 0; i<Asize; j++)
{
tmp=a[j]*b[i]+carry
carry=(long)(tmp*invBas)
c[i+j]+=(long)(tmp-carry*Bas)
}
}
if c[Asize+Bsize]=0 then Csize--;
return 0;
}