BigE

<? $x=99;while($x){    $s=$x>1?'s':'';    $b="$x bottle$s";    $w=' of beer on the wall';    echo"$b$w, $b$w\n",$x>1?'Take one down and pass it around':'Go to the store and buy some more',', ',--$x>1?$x:99," bottle$s$w\n\n";}