1)
{
print($beer.' bottles of beer on the wall, '.$beer.' bottles of beer.
'."\r\n");
$beer--; // Trekk 1 fra $beer (snarvei for $beer = $beer - 1;)
}
?>
1 bottle of beer on the wall, 1 bottle of beer.
No more bottles of beer on the wall.
No more bottles of beer...
Go to the store and buy some more...
99 bottles of beer.