rolling_dice.R