(let ((sum 0))
(loop for i from 2 to 999 do
(if (or (eql (mod i 3) 0) (eql (mod i 5) 0))
(incf sum i)))
(format t "~d~%" sum))