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