(let ((result
       (do ((a 1 b) (b 2 (+ a b)) (sum 0)) ((> b 4000000) sum)
           (when (evenp b)
             (set sum (+ sum b))))))
  (write-line result))