READ <pcim> lang15;
TIME 2015 2075;
GENR tg = tg-(.25*pytr(2015)*(.001*Y(2015)))/Spg(2015)$ ;
TIME 2015 2075;
SIM;