0.1}

SetFunction[withoutl, 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)) /. {le

0, s