Construct causal graph for individual instance

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