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