READ lang19;
TIME 2019 2069;
SERIES tg = @tg*(1-(.001*Y[2019]/Spg[2019])) ;
TIME 2019 2069;
SIM;