pascal.ijs: for->while in the code generator