11591a9f88 2011-04-09       crc: [ dup "%d bottles" puts ]
11591a9f88 2011-04-09       crc: [ "1 bottle" puts ]
11591a9f88 2011-04-09       crc: [ "no more bottles" puts  ]
11591a9f88 2011-04-09       crc: create bottles , , ,
11591a9f88 2011-04-09       crc: 
11591a9f88 2011-04-09       crc: : .bottles  dup 2 ^math'min bottles + @ do ;
11591a9f88 2011-04-09       crc: : .beer     .bottles " of beer" puts ;
11591a9f88 2011-04-09       crc: : .wall     .beer    " on the wall" puts ;
11591a9f88 2011-04-09       crc: : .take     "Take one down, pass it around" puts ;
11591a9f88 2011-04-09       crc: : .verse    .wall cr .beer cr
11591a9f88 2011-04-09       crc:             1- .take cr .wall cr ;
11591a9f88 2011-04-09       crc: : ?dup      dup 0; ;
11591a9f88 2011-04-09       crc: : verses    [ cr .verse dup 0 <> ] while drop ;
11591a9f88 2011-04-09       crc: 
11591a9f88 2011-04-09       crc: 99 verses
11591a9f88 2011-04-09       crc: bye