(count (keep odd? (every (lambda (x) (+ 1 x)) 
                         '(1 2 3 4 5 6 7))))