( 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