READ <pcim> lang13;
upd <2013 2013> jdfvmo + 1000
TIME 2013 2013 ;
genr Sk_h_o  = 1.67*@Sk_h_o  $ ;
TIME 2013 2073 ;
GENR tsysp1 = @tsysp1*1.0097 $;
GENR tsysp2 = @tsysp2*1.0097 $;
SIM ;