(def a 0)
(def b 0)
(def c 1)
(def total 0)
(while (< b 4e6)
  (set a b)
  (set b c)
  (set c (+ a b))
  (when (even? b)
    (set+ total b)
    (console.log b)))
(console.log "total" total)