read(X)
even(X) :- print( 'even'), n1, fail)
odd(X) :- print( 'odd'), n1, fail)