READ <pcim> lang13;
TIME 2013 2073;
GENR tg = tg-(.25*pytr(2013)*1000)/Spg(2013)$ ;
TIME 2013 2073;
SIM;