Вычислить сумму целых чисел от a до b - Lisp

Помогите решить задачу: Вычислить сумму целых чисел от a до b. Я знаю как сложить 2 числа, но как выполнить это задание =(

Уже не надо, разобралась

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

(defun add-range (a b)
  (/ (* (+ a b)
        (1+(- b a)))
     2))
 
> (add-range 4 7)
22

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

В коде определена функция add-range, которая принимает два аргумента a и b.

Первый шаг: вычисление разности между a и b: (1+(- b a)) Значение переменной a равно 4, значение переменной b равно 7, поэтому вычисление дает 22.
Второй шаг: вычисление значения функции (/ ( (+ a b) 22)): (/ 22 ( 4 7)) Значение выражения в скобках (+ a b) равно 22, поэтому вычисление дает 22.
Третий шаг: вычисление значения функции (/ 22 22): Значение выражения в скобках 22 деленное на 22 равно 1, поэтому вычисление дает 1. Итак, результат выполнения функции add-range с аргументами 4 и 7 равен 1.