{模板}高精度压位

乘：

procedure c1(x:longint);
var
        i,j,k:longint;
        y:int64;
begin
    y:=0;
    for i:=1 to ans[0] do
    begin
        ans[i]:=ans[i]*x+y;
        y:=ans[i] div mo;
        ans[i]:=ans[i] mod mo;
    end;
    while y>0 do
    begin
        inc(ans[0]);
        ans[ans[0]]:=y mod mo;
        y:=y div mo;
    end;
end;

待续……