delOdds(L,D).
delOdds([],[]).
delOdds([1],[]).
delOdds([2],[2]).
delOdds([3,4],[4]).
delOdds([6,8],[6,8]).

delOdds([X],[]) :- odd(X).
delOdds([X],[X]) :- even(X).

