(define (both a b) (and a b))
(define (double x) (+ x x))

(reduce both (map even? (map double '(1 2 3 4))))