READ lang22;
TIME 2022 2071;
SERIES tg = @tg*(1-(.001*Y[2022]/Spg[2022])) ;
TIME 2022 2071;
SIM;