READ lang24;
TIME 2024 2073;
SERIES tg = @tg*(1-(.001*Y[2024]/Spg[2024])) ;
TIME 2024 2073;
SIM;