# value.
sub stratify_tags {
my ( $strata, $tags ) = @_;
return (0,0) if !@$tags;
my ( $min, $max );
foreach (@$tags) {
my $w = $_->{weight_total};
-