NIntegrate[(Gamma[0,-Log[x]])((2+x)Log[1+x]-2x)/x^3,{x,0,1},WorkingPrecision->20]