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