print"@{sub b{[@y=($n||=99,bottle.'s'x1!~$n,of,beer),on,the,wall]}b}, @y. $_, @{b--$n}. "for("Take one down and pass it around")x98,"Go to the store and buy some more"