0=

: 0= ( N -- FLAG ) IF FALSE ELSE TRUE THEN ; : 0= ( N -- FLAG ) ABS NEGATE 0< ;