READ lang11;
TIME 2011 2071;
GENR Qwo  = Qwo
         + pytr(2011)*1000*1000/(lohkk(2011)*(1-bqo(2011)/2)*kqo(2011)) $
SIM 2011 2071;