\ iForth version of 99 Bottles of beer : BOB ( n -- ) DUP IF DUP . ELSE ." no more " ENDIF ." bottle" ?S ." of beer" ; : sing ( -- ) 1 99 DO CR I BOB ." on the wall, " I BOB [CHAR] . EMIT CR ." Take one down, pass it around, " I 1- BOB ." on the wall." -1 +LOOP ;