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