Starting with:
In[109]:= Exp[x] Exp[y]
Out[109]= E^(x + y)
I've tried the following (amongst others things) to return to the original form:
In[110]:= ExpandAll[%]
Out[110]= E^(x + y)
In[111]:= Expand[%]
Out[111]= E^(x + y)
In[112]:= PowerExpand[%]
Out[112]= E^(x + y)
In[113]:= Simplify[%]
Out[113]= E^(x + y)
In[114]:= Complicate[%]
Out[114]= Complicate[E^(x + y)]
In[115]:= ComplexExpand[E^(x + y)]
Out[115]= E^(x + y)
In[116]:= Factor[%]
Out[116]= E^(x + y)
In[117]:= ClickYourHealsTogetherThreeTimesDorothy[%]
Out[117]= ClickYourHealsTogetherThreeTimesDorothy[E^(x + y)]
Thanks!
