function f = tester2(input)
global M_

k = input(1);
l = input(2);
i = input(3);
c = input(4);
w = input(5);

NumberOfParameters = M_.param_nbr;                            % Number of deep parameters.
for counti = 1:NumberOfParameters                                  % Loop...
  paramname = deblank(M_.param_names(counti,:));                   %    Get the name of parameter i. 
  eval([ paramname ' = M_.params(' int2str(counti) ');']);         %    Get the value of parameter i.
end   
var_bh = var_bh_0/(1-r_varbh);
bh = bh0/(1-rbh);
r = (1-bh+d*bh)/bh;


% g1 = 0.1;
% g2 = 2;
% bh = 0.99;
% d = 0.025;
% r = (1-bh+d*bh)/bh;
% bf = 0.95;
% s = 0.35;
% a = 0.33;
% z = 1;

f=[c*s-w*(1-l);...


(-g1)*g2*(i^((-1)+g2))*(k^(1-g2))*(((k^(1-g2))*(-g1)*(i^g2)+(-k)*r+(-l)*w+((k^a)*(l^(1-a))*z))^((-1)+sigf))+((i^((-1)+g2))*(k^(1-g2))*g2*g1*(-bf)*((-1)+d))*((((k^a)*(l^(1-a))*z)+(-k)*r+(-l)*w+(i^g2)*(-g1)*(k^(1-g2)))^((-1)+sigf))+bf*((((k^a)*(l^(1-a))*z)+(-k)*r+(-l)*w+(i^g2)*(-g1)*(k^(1-g2)))^((-1)+sigf))*((-r)+z*(l^(1-a))*a*k^((-1)+a)+(i^g2)*(-g1)*(1-g2)*k^(-g2)); ...
(k^a)*(1-a)*z*l^(-a)-w; ...
k-k*(1-d)-i;...
i+c+(k^(1-g2))*g1*(i^g2)-(l^(1-a))*(k^a)*z;
];


% ((-1).*g1.*g2.*i.^((-1)+g2).*k.^(1+(-1).*g2)+(-1).*bf.*((-1)+d).*g1.* ...
%   g2.*i.^((-1)+g2).*k.^(1+(-1).*g2)+bf.*((-1).*g1.*(1+(-1).*g2).*i.^g2.* ...
%   k.^((-1).*g2)+(-1).*r+a.*k.^((-1)+a).*l.^(1+(-1).*a).*z));

% 
% f=[(-1).*bh.^(-1).*(1+(-1).*bh+bh.*d)+r; (c.*((-1)+l).^(-1).*s+w);...
% ((-1).*g1.*g2.*i.^((-1)+g2).*k.^(1+(-1).*g2)+bf.*((-1).*g1.*(1+(-1).*g2) ...
%   .*i.^g2.*k.^((-1).*g2)+(-1).*r+a.*k.^((-1)+a).*l.^(1+(-1).*a).*z)); ...
% (w+((-1)+a).*k.^a.*l.^((-1).*a).*z); ...
% i-d*k;...
% c+i+g1*(i^g2)*k^(1-g2)-z*(k^a)*l^(1-a);
% ];