READ lang15;
TIME 2015 2075;
SERIES elpfxa  = @elpfxa  * 2 ;
SERIES elpfe2k = @elpfe2k * 2 ;
SERIES elpfe59 = @elpfe59 * 2 ;
SERIES elpfet  = @elpfet  * 2 ;
SERIES elpfesq = @elpfesq * 2 ;

// SERIES ekpfxa  = @ekpfxa  * 1.5 ;
SERIES Ekpfe2k = @Ekpfe2k * 1.5 ;
SERIES Ekpfe59 = @Ekpfe59 * 1.5 ;
SERIES Ekpfet  = @Ekpfet  * 1.5 ;
SERIES ekpfesq = @ekpfesq * 1.5 ;

SERIES Tfxa    = @Tfxa    * 2 ;
SERIES tfe2k   = @tfe2k   * 2 ;
SERIES tfe59   = @tfe59   * 2 ;
SERIES tfet    = @tfet    * 2 ;
SERIES tfesq   = @tfesq   * 2 ;

LIST dfewl = dfe2kw, dfe59w, dfetw, dfEsqw, dfXaw;
SERIES #dfewl = 1;
TIME 2015 2075;
SIM ;
SERIES #dfewl = 0;
WRITE stor;


READ Stor;
TIME 2015 2075;
SERIES Uq = @Uq -0.01*Q ;
SERIES duqsy = 1 ;
SIM ;
