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