(defun e2 ()
(let ((sum 0))
(do ((last 0 current)
(current 1 (+ current last)))
( (>= current 4000000) sum)
(if (= (rem current 2) 0)
(incf sum current)))))