READ lang22;
TIME 2022 2071;
SERIES tsysp1 = @tsysp1*(1-((.001*Y[2022])/(Ssysp1[2022]+Ssysp2[2022]))) ;
SERIES tsysp2 = @tsysp2*(1-((.001*Y[2022])/(Ssysp1[2022]+Ssysp2[2022]))) ;
SIM;