READ <pcim> lang14;
TIME 2014 2074;
GENR tg = tg-(.25*pytr(2014)*1000)/Spg(2014)$ ;
TIME 2014 2074;
SIM;