Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl L= {} for k,v in next ,_G ._G do L[#k ]=v end L[10 ](([[p =prin t;for 'q=99, 1,-1'do' gg'q>1' th{n'p( q.."'Bs' {f'!:::'{n 'th{'<114 ,'"..q.." 'Bs'of'!:: [.")gg'q>2't h{n's=(q-1) .."'Bs'{f'[ !::'{n'th{ '<!+$."{lse' s="1'B'{f'$ !::'{n'th{' <onx."{nd; elsegg'q==1' then'p"1'B' {f'x!::'{n' th{'wall,' 1'B'of'[!::. "s="no'mor{ '!::''{n'th e'<'!4!"en d;p("Take'{n {'down,'pas s'it'around ,'"..s)p"- "{nd]]):gsub ("["..[==[$ 4[]==]..[[x ]].."]","" ):gsub([[B]] ,"bottle"): gsub("''?", " "):gsub( "!:+","beer" ):gsub("gg" ,"if"):rep( 3-2):gsub( "<..","wall" ):gsub("{", function(_) B=((B)or(3 ))+1;return( "eooe"):sub (B%4+1,(B+1 +2+9)%4+(# L[1]-13),(B* 2)%7)end))( L[#L]or...) Private [?] Run code