Construct causal graph for individual instance

CombinatorEvolutionGraph[{e[x_][y_]x[y[y]]},e[e][e][e][e],10]
In[]:=
Out[]=
MultiwayCombinator[{e[x_][y_]x[y[y]]},e[e][e][e][e],10,"CausalGraphStructure"]
In[]:=
Out[]=
NestList[#/.{e[x_][y_]x[y[y]]}&,e[e][e][e][e],10]
In[]:=
Out[]=
CombinatorTree/@%
In[]:=
Out[]=
CombinatorAnnotate[{e[x_][y_]x[y[y]]},#]&/@NestList[#/.{e[x_][y_]x[y[y]]}&,e[e][e][e][e],10]
In[]:=
Out[]=