* U>= ( a b -- flag ) simulate : U>= U< 0= ;
U>=
( a b -- flag )
simulate : U>= U< 0= ;
FORTH/BASE core_misc ordinary primitive