(defun sum-primes (lo hi)
    ;; sum the primes between LO and HI
    (reduce #'+ 0 (filter prime? (interval lo hi))))


(defun interval (lo hi)
    ;; return a list of the integers between lo and hi
    (if (> lo hi) nil (cons lo (interval (1+ lo) hi))))