my( $qty, $type, $face, @dice ) = ( $1, $2, $3 ? 1 : undef );
    push @dice, Die->get( $type, $face ) while $qty--;