Log-Exp functions
>
f := (1+x+x*exp(x))*(x+log(x)+exp(x)-1)/(x+log(x)+exp(x))^2/x;
>
pmint(f,x);