r while ext