Integrate[Exp[x] x^4/(Exp[x] - 1), x]