function F = solvesss(x,betti,alpha,delta,mud,theta,kappa,rl_ss)
%Solve for the steady state variables for model with money


F=[(1+rl_ss)*(1+x(1))*(1/betti+delta-1)/(alpha*x(2))-kappa*x(1)/(alpha*x(2))-((1+rl_ss)*(1+x(1))*delta-kappa*x(1))/((1-theta)*(1-mud*x(2)));
   (1+rl_ss)*(1+x(1))*(1/betti+delta-1)/(alpha*x(2))-kappa*x(1)/(alpha*x(2))-((kappa-(1+rl_ss)*delta)*(1+x(1)))/((1-alpha)*x(2));
    ];



