READ lang21;
TIME 2021 2070;
SERIES zfimro1 = zfimro1*(1 + 0.001*Y[2021]/(pimro1[2021]*zfimro1[2021])) ;
SERIES <2021 2070> Dfxo1i = 1;
TIME 2021 2070;
SIM;