function Result = StStMacroModelLabSup(x,PAR,EXO)

eps_L = 1 - PAR.alpha;
eps_C = PAR.eps_C;
delta = PAR.delta;
rho   = PAR.rho;
Z_0   = PAR.Z_0;
G     = EXO.G;

% Computes the steady-state equilibrium
% x(1)     is W
% x(2)     is R
% x(3)     is C
% x(4)     is K
% x(5)     is Y
% x(6)     is I
% x(7)     is L
%
% Result(1) =  W * L - eps_L * Y ;
% Result(2) =  R - rho ; 
% Result(3) =  Y - C - delta * K - G ;
% Result(4) =  Y - Z_0 * K^(1-eps_L) * L^eps_L ;
% Result(5) =  R + delta - (1-eps_L) * Y / K ;
% Result(6) =  I - delta * K ;
% Result(7) =  W * (1 - L) - ((1-eps_C)/eps_C) * C ;


    Result = zeros(size(x));
    Result(1) =  x(1) * x(7) - eps_L * x(5) ;
    Result(2) =  x(2) - rho ; 
    Result(3) =  x(5) - x(3) - delta * x(4) - G ;
    Result(4) =  x(5) - Z_0 * x(4)^(1-eps_L) * x(7)^eps_L ;
    Result(5) =  (x(2) + delta) * x(4) - (1-eps_L) * x(5) ;
    Result(6) =  x(6) - delta * x(4) ;
    Result(7) =  x(1) * (1 - x(7)) - ((1-eps_C)/eps_C) * x(3) ;
    
end
