even(4) :- N mod 2 =:= 0, write('EVEN').