[

	/* ------------------------------------------------------------------
	
	Lasso 9
	
	Jonathan Guthrie
	Treefrog Interactive
	Newmarket, ON, Canada
	
	For more information about Lasso, please visit http://www.lassosoft.com/
	
	------------------------------------------------------------------ */

	define beer99 => type { 
		data 
			public beer = 99
	
	    public s() => { .beer != 1 ? return 's' }
	    
	    public run() => {
			local(out = string)
	
			while(.beer) => {
				#out += '<p>'
				#out += .beer + ' bottle' + .s + ' of beer on the wall,<br />'
				#out += .beer+' bottle' + .s + ' of beer;<br />'
				--.beer
				#out += 'Take one down, pass it around,<br />'
				#out += .beer +' bottle' + .s +' of beer on the wall.'
				#out += '</p>'	
			}
			return #out
	    }
	}
	
	local(beerwall = beer99)
	#beerwall->run

]