sub b{[@b=(abs||99,bottle."s"x!!++$_,of,beer),on,the,wall]}print"@{+b}, @b. ",$_?"Take one down and pass it around":"Go to the store and buy some more",", @{+b}. "for-99..-1