basic言語で巨大数を作ってみたので上げてみる。
1行目で配列を無限に宣言してるとこが変だろうけど気にしないでくれ。

dim A(∞):B=9
for C=0 to 9
for D=0 to B
A(D)=D
next
for E=B to 0 step -1
B=B*B
for F=0 to E
if A(E-F)<A(E) or A(E)=0 then G=F:F=E
next
for H=1 to B*G
A(E)=A(E-G):E=E+1
next
next
next
print B

急増加関数ε_0ぐらいの増加を予想している。