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