READ lang11;
TIME 2011 2071;
GENR tg = tg-(.25*pytr(2010)*1000)/Spg(2010)$ ;
SIM 2011 2071;