Returns -1 (>FFFF hex).

: 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.