-- Euphoria
-- www.rapideuphoria.com
--
-- Author: Don Phillips
-- 
atom Beers
sequence Bottles

Beers = 99
while Beers != 0 do
	Bottles = "Bottle" & (Beers!=1)*'s'
	printf( 1, "%d %s of beer on the wall,\n", {Beers,Bottles} )
	printf( 1, "%d %s of beer.\n", {Beers,Bottles} )
	printf( 1, "Take one down, pass it around,\n", {} )
	Beers -= 1
	Bottles = "Bottle" & (Beers!=1)*'s'
	printf( 1, "%d %s of beer on the wall.\n\n", {Beers,Bottles} )
end while