D[x^Log[x],x]