;; (defun range (start end)
;;   (if (< start end)
;;       (cons start (range (+ 1 start) end))
;;     (list)))

(write-line (reduce + (filter (lambda (x) (or (zerop (mod x 3)) (zerop (mod x 5)))) (range 1 1000))))