Returns 0.

: IsEven? ( n -- )
  \ return TRUE if word is even, else return FALSE
  1 AND IF FALSE ELSE TRUE THEN
;

2 isEven? . -1 ok:0
3 isEven? . 0 ok:0
 

May be used in IF statements etc.