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