http://www.phpgolf.org/challenge/99-Bottles
<?$w=' on the wall';$c=' bottle';$p=$c.s;$b=' of beer';for($v=99;$v>0;print"$r$w, $r.\n".(--$v?"Take one down and pass it around, $v".($v>1?$p:$c)."$b$w.":"Go to the store and buy some more, 99$p$b$w.")."\n\n")$r=$v.($v>1?$p:$c).$b;
will change \n to real new line, and you will have 229