sub do_stat {
    my ( $dice, $mod ) = @_;
    my $roll = RPG::Dice::roll ( $dice );
    return &$mod( $roll );
}