(element-of-satisfies? '(1 3 5 7 9) even?) ⇒ #f

     (element-of-satisfies? '(1 3 5 7 9) odd?) ⇒ #t

     (define element-of-satisfies?
       (lambda (lst ok?)
         (cond ((null? lst)
                #f)
               ((ok? (car lst))
                #t)
               (____ ? ____
                ____ ? ____))))