Mine

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