Overkill version of even?

overkill-even.scm

(define (compose f g)
  (lambda (x)
    (f (g x))))
 
(define (composeN acc f n)
  (if (zero? n)
    acc
    (composeN (compose acc f) f (- n 1))))
 
(define (even? n)
  ((composeN not not n) #f))
 
(display (even? 5)) (newline)
(display (even? 6)) (newline)