( HQ9+ in gforth ) vocabulary hq9+ hq9+ definitions : .. bye ; : H ." hello World" ; : Q source type ; : .xbottles { x -- } \ x{ 99..3} cr x . ." bottles of beer on the wall, " x . ." bottles of beer." cr ." Take one down and pass it around, " x 1- . ." bottles of beer on the wall." cr ; : .2bottles cr 2 . ." bottle of beer on the wall, " 2 . ." bottle of beer." cr ." Take one down and pass it around, " 1 . ." bottle of beer on the wall." cr ; : .1bottle cr 1 . ." bottle of beer on the wall, " 1 . ." bottle of beer." cr ." Take one down and pass it around, no more bottles of beer on the wall." cr ; : .0bottles cr ." No more bottles of beer on the wall, no more bottles of beer." cr ." Go to the store and buy some more, 99 bottles of beer on the wall." cr ; : .99bottles 99 3 - for i 3 + .xbottles next .2bottles .1bottle .0bottles ; : 9 cr cr .99bottles cr cr ; 0 value accumulator : + accumulator 1+ to accumulator ; words cr cr \ finis