for my $i (map 10**$_, 1..4) {
    cmpthese -30, { map { $_ => "$_ 1..$i" } qw/naive buk/ };
}