sub b{$s=$n-1?'s':'';($n||'No')." bottle$s of beer"}$n=99;warn$b=b,$w=" on the wall",", $b,\nTake 1 down & pass it around,\n".b(--$n)."$w.\n"while$n;