READ lang21;
TIME 2021 2070;
SERIES tg = @tg*(1-(.001*Y[2021]/Spg[2021])) ;
TIME 2021 2070;
SIM;