I have a problem of maplist of prolog program

Question

hallo this is my Programm of Prolog

mymaplist(_,[]).
mymaplist(P,[X|Xs]) :-
    call(P,X),
    mymaplist(P,Xs).

even(X) :- X mod 2 =:= 0.

my