d[c[b[a[x]]]]
u1=a[x]
u2=b[a[x]]
u3=c[b[a[x]]]
u4=d[c[b[a[x]]]]
D[u4,x]
D[u4,u3]D[u3,u2]