(setq sum 0)
(loop for i from 0 to 1001 do
      (if (eq (mod i 3) 0) 
	(setq sum (+ sum i))
      	(if (eq (mod i 5) 0) 
	  (setq sum (+ sum i))
	)
      )
)
(print sum)