plot(exp(lambertw(x*log(x))/x),x=0..1