READ <pcim> lang14;
TIME 2014 2074;
GENR tsysp1 = @tsysp1*(1-(1000/(Ssysp1(2014)+Ssysp2(2014)))) $;
GENR tsysp2 = @tsysp2*(1-(1000/(Ssysp1(2014)+Ssysp2(2014)))) $;
SIM;