bounds:forth_usual — ordinary primitive
FORTH
BOUNDS ( str len -- str+len str )(
)
Convert _str len_ to range for DO-loop.
: BOUNDS ( str len -- str+len str ) OVER + SWAP ;