# Print words to '99
Bottles of Beer' -- S. Tanimoto
$w = " on the
wall";
$t = "\nTake one down
and pass it around, ";
for (reverse(1 .. 99))
{
print b($_),"$w, ",b($_),".
",$t,b($_-1),"$w.\n"; }
sub b() { ($n) = @_;
$p = ($n != 1) ? "s" : ""; "$n bottle$p
of beer"; }