                   /* Efficient expansion */

/*K: Ex, expand, expansion */
/*A: John Gottschalk */
/*S: University of Western Australia */
/*D: December 1986 */

/*: Eex[$expr]
	expands $expr consuming less memory but more time 
	than Ex[$expr]. It only expands the Div, Mult and Pow projectors. 
	When the system-defined function Ex is improved this file will 
	be redundant. */
Eex_:Tier
Eex[$expr] :: (Lcl[%ex]; \
	%ex[$exp] :: (Ex[$exp,'Pow,,,1]; Ex[%%,'Mult,,,1]; Ex[%%,'Div,,,1]); \
	Map[%ex,$expr,-Inf];%ex[%%])


