even(C,N) :- C is N.
write('even') :- C rem 2 =/= 0.
write('odd') :- X rem 2 =:= 0.