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

FORTH/BASE core_misc ordinary primitive