my ( $qty, $type, $face ) = shift =~ m/(^\d+)d(\d+)(.*s$)?/i or croak "Invalid parameters to Dice::Dice->grab: $!";
$face &&= 1;
my @dice = map Die->get($type,$face), 1..$qty;
return bless { dice => \@dice }, $class;