print eval q!@j=/s/?(take,one,down,an.d,pass,it,around):(go,to,the,store,an.d,buy,some,more);@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/,$"@m.\n\n@m,$"@z.\n\u@j/;/\n+/;$'.$`;!x99