Buenas, no logro entender como llegar al resultado de este ejercicio.
Lo que intenté fue desarrollar el foldr como x1 ' f ' (x2 ' f ' (.. (xn ' f ' e)..) pero no llego a poder evaluar. No me doy cuenta si es que estoy considerando mal los parámetros en el foldr, o si es algo más. Para mi los parámetros de foldr son:
f = (.) , e = id (map filter ps) y queda esperando a xs que en el ejercicio es [1,2,3,4]