more work on find R_2