READ <pcim> lang100;
UPD <#per1 #per1> JRlna + 0.01;
TIME #per1 #per2 ;
SIM ;
