R-WHILE code

Input data