function f = tester(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.*((-1)+l).^(-1).*s+w);...
((-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));
(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);
];


% ((-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);
% ];