{hs, ms, ls} }
SetFunction[withl, expo] =
{Function
(( (c he^(1-1/s2) + (1-c) me^(1-1/s2))^(1/(1-1/s2)) )^(1-1/s) * (1-d) +
d * le^(1-1/s) )^(1/(1 - 1/s)),
CoefficientList
{c
{hs, ms, ls} }
SetFunction[withl, expo] =
{Function
(( (c he^(1-1/s2) + (1-c) me^(1-1/s2))^(1/(1-1/s2)) )^(1-1/s) * (1-d) +
d * le^(1-1/s) )^(1/(1 - 1/s)),
CoefficientList
{c