	real*8 e,fact
	integer*8 i
	e=2
	fact=1
	do k=2,20
	fact=fact*k
	e=e+1/fact
	print*,real(e),real(1/fact)
	enddo
	print*,e,exp(1.d0)-e
	end
	