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

FORTH/BASE core_misc ordinary primitive