(defun summing (step n)
  (let ((an (+ 1 (* step (- n 1)))))
    (/ (* (+ step an) n) 2)))

(print(summing 1 100))