Desafio find con notacion point free

Se desea definir la función find, que dado un criterio y una lista encuentra al primero que lo cumple:

Main> find even [1,35,36,9]
36

El objetivo es definirla así:

find = .........

O sea,

Como la solución puede obtenerse probando un poco, para que la respuesta al desafío sea aceptada, debe ir acompañada de una pequeña explicación de cómo funciona.