fib_count last current max sum
| current >= max = sum
| rem current 2 == 0 = fib_count current (current + last) max (sum + current)
| otherwise = fib_count current (current + last) max sum
e2 = fib_count 0 1 4000000 0