12 lines
		
	
	
		
			311 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			12 lines
		
	
	
		
			311 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
bottle := method(i,
 | 
						|
  if(i==0, return "no more bottles of beer")
 | 
						|
  if(i==1, return "1 bottle of beer")
 | 
						|
  return i asString .. " bottles of beer"
 | 
						|
)
 | 
						|
 | 
						|
for(i, 99, 1, -1,
 | 
						|
  write(bottle(i), " on the wall, ", bottle(i), ",\n")
 | 
						|
  write("take one down, pass it around,\n")
 | 
						|
  write(bottle(i - 1), " on the wall.\n\n")
 | 
						|
)
 |