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