READ <pcim> lang15;
TIME 2015 2075;
GENR tsysp1 = @tsysp1*(1-((.001*Y(2015))/(Ssysp1(2015)+Ssysp2(2015)))) $;
GENR tsysp2 = @tsysp2*(1-((.001*Y(2015))/(Ssysp1(2015)+Ssysp2(2015)))) $;
SIM;