Iterative function in Scheme Language

Question

   (do ((i 1 (+ i 1))
   (fact 1))
   ((> i n ) fact)
   (set! fact(* fact i))))

(define (sum-of-factorials-of-elements lst)
   (do ((i (length lst) (- i 1))