Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl n,B,x=99,", %d %s of beer.\n",lambda n:(n,'bottles'[:5+n]);l=range(100);l[0]=99 o=B[2:-2]+" on the wall" s="Go to the store and buy some more, %s."%o,"Take one down and pass it around, %s.\n"%o,o+B while n:print(s[2]+s[(n>1):][0])%(x(n)*2+x(l[n-1]));n-=1 Private [?] Run code