1while($x||=3)-($x-=sin$x/cos$x);print"$x\n"

##</code><code>##

1while($x||=2)-($x-=((log($x)-1)*$x));print"$x\n"