Tarea 5, 4, cumple

; Implementar la función de orden superior cumple que reciba una lista
; de predicados unarios y un valor como argumentos y regrese el primer; ; predicado que se evalúe verdadero.
(define cumple
    (lambda (predicates x)
        (cond [(null? predicates) #f]
              [((car predicates) x) (car predicates)]
              [else
                (cumple (cdr predicates) x)]
        )
    )
)