b,o,w=' bottle',' of beer',' on the wall';x=('s','')
for i in range(1,100)[::-1]:print'%d%s%s%s%s, %d%s%s%s.\n%s, %d%s%s%s%s.\n'%(i,b,x[i==1],o,w,i,b,x[i==1],o,('Take one down and pass it around','Go to the store and buy some more')[i==1],(i-1,99)[i==1],b,x[i==2],o,w)