D[Log[Exp[x],x],x]