\ -----------------------------------------------------------------------
\ 7-1.FORTH -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 7
\ ANSized by Benjamin Hoyt in 1997

( problem 7-1  DON'T try this on a 32 bit system! :)
: N-MAX  ( -- n )  0 BEGIN 1+ DUP 0< UNTIL 1- ;