wiiki - NinetyNineBottlesOfBeerOnTheWall

From DilBert: A bunch of big-brained scientific types are on a bus singing...

"Infinite number of beers on the wall, infinite number of beers. You take one down and pass it around... Infinite number of beers on the wall!" <repeats ;->

After a while, the bus driver gets sick of it and yells that they'll never to get to zero.

NinetyNineBottlesOfBeerOnTheWallInManyLanguages:

Several pages exist that list programs in incredibly and impressively large numbers of languages that emit the words to the song:

http://www.99-bottles-of-beer.net/ (1000)
http://www.westnet.com/mirrors/99bottles/beer.html (227, possibly with some duplication)

#define TakeOneDown(n) n--
for (BottlesOfBeer = 99; BottlesOfBeer > 0; TakeOneDown(BottlesOfBeer))
{
    PassItAround();
},

or perhaps: BOTTLESOFBEER 100 0 DO 99 I - PASSAROUND LOOP ;

See ForthFlames for a complete implementation. This can even be done in TuringTarpits: see SnuspLanguage.