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