READ <pcim> lang100;
UPD <#per1 #per2> Ha * 1.01;
UPD <#per1 #per2> Qwo * 0.99;
TIME #per1 #per2;
SIM ;
