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

core_misc ordinary primitive