Odd_even(X).
Odd_even(X):- 0 is mod(X,2) , write ('even number'), NL.
Odd_even(X):- write ('odd number'), nl.