Dice_with_modifier_r ::= Simple_Dice 'r' Die_Modifier_Comp* Die_Modifier_Val action => modifier_r Die_Modifier_Comp ~ 'gt' | 'lt'