$n=pop||99;sub b{"$n bottle@{[$n!=1&&s=>]} of beer"}print$b=b,$w=' on the wall'
,", $b!\nTake one down, pass it around,\n",b($n--),"$w!\n\n"while$n