dim a as double
dim n as integer

a=2
for n=1 to 20
    a=sqr(a)
next n
for n=1 to 20
    a=a^2
next n
print a

sleep