my %tally = ();
naive_shuffle_count( -1, undef, \%tally, 1..3 );