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

FORTH/BASE core_misc ordinary primitive