    function F= UBI1(e,par,A)
 
     
w=e(1);  % t wage
s=e(2);  % t savings (from young people=workers)
s_1=e(3);%t-1 savings
k=e(4);  % t capital
k1=e(5);% t+1 capital
L=e(6);  % t Labour demand
l=e(7);  %t labour supply


%parameters in the system
rho=par(1);
phi=par(2);
alp=par(3);
n=par(4);
n_1=par(5);
gA=par(6);



    %Equations in the system (WE NEED 7)
f1=(1+rho)/(1+phi+rho)-l; %labour supply (only parameters)
f2=rho*l/(1+rho)*w-s;     
f3=rho*l/(1+rho)*w-k1; %s and k1 equal????!!!! when n not 1 it would be wrong
f4=((1-alp)*(k^alp)*(A*L)^(1-alp))/(A*L)-w; %in natural terms
f5=n_1*s_1-k;
f6=n*l-L;
f7=n*s-k1;


F=[f1;f2;f3;f4;f5;f6;f7];

end