READ lang15;
TIME 2015 2075;
SERIES tg = @tg*(1-(.001*Y[2015]/Spg[2015])) ;
TIME 2015 2075;
SIM;
