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

core_misc ordinary primitive