aplicarV2(Pred, ListaOriginal, ListaResultante):-   
 findall(Y, (member(X, ListaOriginal), call(Pred, X, Y)), ListaResultante).
