Сумма чисел от 0 до 100 в common lisp

Помогите решить задачу Сумма чисел от 0 до 100 в common lisp

Листинг программы

(defun sum (a b)
  (/ (* (+ a b)
        (- (+ b 1) a))
     2))
SUM
[2]> (sum 0 100)
5050

Объяснение кода листинга программы

В данном коде определён функционер с именем sum, который принимает два аргумента a и b.

Сначала происходит вычисление внутри функции: — Сначала суммируются числа a и b — Затем из этой суммы вычитается число a — Затем к результату прибавляется число b — Результат этих вычислений делится на число a — Затем из результата вычитается число b — Затем к результату прибавляется число a — Итоговый результат вычислений сохраняется в переменной sum
После вычислений значение переменной sum возвращается в качестве результата работы функции.
После определения функции, выполняется её вызов с аргументами 0 и 100
Результатом работы функции является число 5050, которое выводится в консоль.