for (i=0; i<1000; i++) a = 2^i;
length(a)
for (i=3000; i<3100; i++) a = 3^i;
length(a)
for (i=200; i<220; i++) a = (4^100)^i;
length(a)
quit