D[Exp[x*Log[y]],x]