simulating Uno in R

I was playing Uno the other day with another person and noted that some games only took a few turns to complete and others went on forever. This is my attempt to get the distribution of number of turns to complete a game of Uno using R.