(define (sum-fib sum a b c) (if (> a 4000000) sum (if (even? a) (sum-fib (+ sum a) b c (+ b c)) (sum-fib sum b c (+ b c))))) (display (sum-fib 0 1 2 3)) (newline)