k = k_ss;
y = y_ss;
w = w_ss;
rs = rs_ss;
lambdac = lambdac_ss;
l = l_ss;
r = r_ss;
rmon = r_ss; 
n = n_ss;
eta = eta_ss;
v = v_ss;
s = s_ss;
in = in_ss;
ig = ig_ss;
q = q_ss;
c = c_ss;
gc = gc_ss;
z = 0; 
spread =spreadp;
l2n = s_ss/n_ss;
infl = infl_ss;
sigma = 1;
phi = 0;
dphidp = 0;
dphidlp = 0;
lambda = lambdap;
bt = 0;
n2y = n/y;
betavar = betap;
cpref = 0;
rpot = r_ss;
Util1 = log(c_ss-gammap*c_ss)-chi0p*l_ss^(chip+1)/(chip+1);
Util2 = log(c_ss-gammap*c_ss)-chi0p*l_ss^(chip+1)/(chip+1);
Util_nobias = log(c_ss-gammap*c_ss)-chi0p*l_ss^(chip+1)/(chip+1);
Welf_nobias = Util_nobias/(1-betap);
Welf = Welf_nobias;
markup = 0;
