Dice_with_modifier_r ::= Simple_Dice 'r' Die_Modifier_Val action => modifier_r
                        |Simple_Dice 'r' Die_Modifier_Comp Die_Modifier_Val action => modifier_r