for r prog