READ <pcim> lang100;
TIME #per1 #per2;
GENR Uq = @Uq -0.01*Q $ ;
UPD duqsy = 1 ;
SIM ;