       10 // EXP() sample program
       20 //
       30 FOR f:=-1 TO 3 STEP 0.050000 DO
       40   e:=EXP(f)
       50   SYS assert, 1-f*LOG(EXP(1))/LOG(e)=1<0.000001
       60 ENDFOR f
       70 //
       80 PRINT "Ok"