even(N) :- (N mod 2 =:= 0.
 ->write('EVEN').
 ;write('ODD').
 ).