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

( problem 9-1 )
: COUNTS  ' ROT ROT 0 DO  OVER EXECUTE LOOP  NIP ;