READ lang17;
TIME 2017 2076;
SERIES tg = @tg*(1-(.001*Y[2016]/Spg[2016])) ;
TIME 2017 2076;
SIM;