{ int i, T=0;
  for (i=B[0]+1;i<=A[0];) B[i++]=0;

  for (i=1;i<=A[0];i++){
    A[i]=A[i]-(B[i]+T);
    if (A[i]<0) T=1; else T=0;
    if (T) A[i]+=10;
    }

  for (i=1;i<=A[0];i++)
    A[i]+= (T=(A[i]-=B[i]+T)<0) ? 10 : 0;
    /* Adica A[i]=A[i]-(B[i]+T);
       if (A[i]<0) T=1; else T=0;
       if (T) A[i]+=10; */

  while (!A[A[0]]) A[0]--;
}
==

== code(c)|
void MultHuge(Huge A, Huge B, Huge C)
/* C <- A x B */

{ int i,j,T=0;

{I int i,j,T=0;

  C[0]=A[0]+B[0]-1;
  for (i=1;i<=A[0]+B[0];) C[i++]=0;