READ <pcim> lang15;
TIME 2015 2015 ;
GENR JCpuxh = JCpuxh + .001*Y $;
TIME 2015 2075;
SIM ;