READ lang11; TIME 2011 2071;
GENR fImo = fImo + 1000/kfimo1 $;
SIM 2011 2071;