clear
e=1
n=1
do while .t.
k=1
for i=1 to n
k=k*i
endfor
m=1/k
e=e+m
if m