$==pop||99;--$=;sub
_{($;=($=||No)." bottle"."s"x!!--$=." of beer")." on the wall"}print+_,", $;!
Take one down, pass it around,
",_,"!

"while++$=