Как создать предикат?

Не получается создать предикат, удаляющий из списка все элементы с четных позиций.

Решение:

remove_even([], []).
remove_even([X], [X]).
remove_even([ Odd, Even | Xs ],[ Odd | Ys ]):-
    remove_even( Xs, Ys ).