Integrate[x Log[Sin[x]],x]