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