dB*
1/(Pl*Cl)-(Rl*beta/(P*C))

RealWsetsL
exp(a) * alpha * L^(alpha - 1) - w / P

WageGrowth
w / wl - (Cl * Pl /(wl * (1 - Ll)))^delta - epsw

GBC
B/P - Rl * Bl/P + tau

SRC
C - exp(a) * L^alpha

Mpolicy
R - ((P/Pl)^theta * beta^(-1))^(1 - gamma) * Rl^gamma * (1 + epsM)

Fpolicy
tau + phi0 - phi1 * Bl/Pl - epsF

Adynamics
a - rho * al - epsA

vlist
a C L w P B R tau

param
alpha beta rho theta phi0 phi1 delta gamma

shock
epsM epsF epsA epsw