oddEven(X) :-
	X > 0,
	V is mod(X,2),
	write('odd') := V =:= 1,
	write('even') := V =:= 0.