READ <pcim> lang100;
TIME #per1 #per2;
GENR tg = tg-(.25*pytr(2013)*1000)/Spg(2013)$ ;
TIME #per1 #per2;
SIM;
