factorial in r using while loop