2840 WHILE IPR=2