oddEven(X, RET) :-
	X > 0,
	V is mod(X,2),
	RET is V.