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