\ -----------------------------------------------------------------------
\ 4-6.forth -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 4
\ ANSized by Benjamin Hoyt in 1997

( problems 4-6 )
: WITHIN  ( n lo hi+1 -- flag )  OVER -  >R  -  R> U< ;