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