(define (even-list list)
  (if (null? list)
    0
    (begin
      (let ((res (if (equal? (modulo (car list) 2) 0) 1 0)))
      (+ res (even-list (cdr list))))
    )
  )
)