plot[log(t)-LambertW[-t/e^t],1<t<3]