[//lasso 

	
	local(
		'no_of_bottles'   = 99,
		'out'          = string,
		);
		
	while(boolean(#no_of_bottles));
		#out += '<p>';
		#out += #no_of_bottles ' bottle' (#no_of_bottles != 1 ? 's') ' of beer on the wall,<br />';
		#out += #no_of_bottles ' bottle' (#no_of_bottles != 1 ? 's') ' of beer;<br />';
		#out += 'Take one down, pass it around,<br />' (--#no_of_bottles)  ' bottle' (#no_of_bottles != 1 ? 's') ' of beer on the wall.';
		#out += '</p>';
	/while;
	
	#out;

]