($a,$b,$c,$n)=(" bottle"," of beer"," on the wall",99);sub u{$s=$n-1?"s":();$e="$n$a$s$b"}while($n){u;print"$e$c, $e!\nTake one down, pass it around,\n";$n--;u;print"$e$c!\n\n"}