BOUNDS BODY> BRANCH
BOUNDS ( a b -- b+a a )  
<FORTH-83-L&P>
 simulate:
   : BOUNDS  OVER + SWAP ;

reference: p4_bounds in ../src/lpf83.c:0040, export CO BOUNDS