READ <pcim> lang14;
UPD <2014 2074> Upef + -10;
TIME 2014 2074 ;
GENR tsysp1 = @tsysp1*.9663 $;
GENR tsysp2 = @tsysp2*.9663 $;
SIM ;