READ lang11; TIME 2011 2071;
GENR fIbo = fIbo + 1000/kfibo1 $;
SIM 2011 2071;