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

core_misc ordinary primitive