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