READ <pcim> lang13;
TIME 2013 2073 ;
Genr fXae  = @fXae *(1+(1000/fe(2013))) $
Genr fe3x  = @fe3x *(1+(1000/fe(2013))) $
Genr fEe2  = @fEe2 *(1+(1000/fe(2013))) $
Genr fEe59 = @fEe59*(1+(1000/fe(2013))) $
Genr fEet  = @fEet *(1+(1000/fe(2013))) $
Genr fEss  = @fEss *(1+(1000/fe(2013))) $
Genr feesq = @feesq*(1+(1000/fe(2013))) $
SIM ;