@{
	$bob << " bottles of beer";
	$wall << " on the wall!";
	$pass << " take one down, pass it arround... ";
	Loop{
		for $i from 99 to 1 by -1;
		do ug_printValue(format("%d",$i) + $bob + $wall
			+ ", " + format("%d",$i)+ $bob + "!"
			+ $pass + format("%d",$i) + " more"
			+ $bob + $wall);
	};
	ug_printValue("No more bottles of beer on the wall!");
	true;
};