read(X).

even(X) :- write('even'), nl, fail);
odd(X) :- write('odd'), nl, fail);