READ <pcim> lang13;
TIME 2013 2073;
GENR Uq = @Uq -0.01*Q $ ;
UPD duqsy = 1 ;
SIM ;