(setq a (list 1 2))
(setq l 0)
(loop while (< l 4000000) do
	(setq l (apply '+ (last a 2)))
	(nconc a (list l))
)

(setq s 0)
(loop for i in a do
	(if (eq (mod i 2) 0)
		(setq s (+ s i))
	)
)
(print s)