READ <pcim> lang13;
TIME 2013 2073;
GENR tsysp1 = @tsysp1*(1-(1000/(Ssysp1(2013)+Ssysp2(2013)))) $;
GENR tsysp2 = @tsysp2*(1-(1000/(Ssysp1(2013)+Ssysp2(2013)))) $;
SIM;