(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))