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

core_misc ordinary primitive