Примеры сумм

1. Сумма целых чисел от a до b

(defun sum-integers (a b)
  (if (> a b)
      0
      (+ a (sum-integers (1+ a) b))))

2. Сумма квадратов целых чисел

(defun sum-squares (a b)
  (if (> a b)
      0
      (+ (square a) (sum-squares (1+ a) b))))

Хочется не только вычислять конкретные суммы, но и выражать в языке само понятие суммы.