;       n       x
;-----------------------
;       1       1
;       2       1+2
;       3       1+2+3
;       4       1+2+3+4
(define (CALC-E n)
  (define (iter pos noemer acc)
    (if (> pos n)
        acc
        (iter (+ 1 pos) (* noemer pos) (+ acc (/ 1 noemer )))))
  (iter 1 1 0))