function ret = prob4newton(guess)

x0 = guess;

x1 = x0;

if ((exp(x0)-x0) ~= 0) & ((exp(x0)-1) ~= 0)
	continue = 1;

	while(continue)
		x0 = x1;
		x1 = x0 - (exp(x0)-x0)/(exp(x0)-1);
		foo = x0-x1;
		if abs(foo) < 1e-10 
			continue = 0;
		end
	end
end

ret = x1;