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