Mine

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