0>= 0> 0<>
0>=
* 0>= ( a -- flag )
 simulate    : 0>= 0< 0= ;

FORTH/BASE core_misc ordinary primitive