READ <pcim> lang100;
TIME #per1 #per2 ;
Genr fXae  = @fXae *(1+(1000/fe(2013))) $
Genr fe3   = @fe3  *(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 ;
