| > | restart; |
| > | Digits := 500; |
| > | b := 3; |
| > | p := sqrt(2); |
| > | for n from 1 to 100 do |
| > | r := evalf[n]( p ); |
| > | print( n, evalf[100](b^r) ); |
| > | end do: |
| > | evalf[100]( b^p ); |
| > |
| > | for n from 1 to 100 do |
| > | x := evalf( 1/2^n ); |
| > | print( n, evalf[100]((1+x)^(1/x)) ); |
| > | end do: |
| > | evalf[100]( exp(1) ); |
| > |