anchor.diff:  			       SD_diff = abs(Nodes - Avg) / StdDev,
   			       %%io:format("~p keys: ~p nodes avg=~p SD_diff=~p\n",
   			       %%          [maps:size(M1), Nodes, Avg, SD_diff]),
  -			       {MaxDiff0, _} = Max0,
  +			       {MaxDiff0, _, Cnt} = Max0,
   			       case {Nodes > Avg, SD_diff > MaxDiff0} of
  -				   {true, true} -> {SD_diff, M1};
  +				   {true, true} -> {SD_diff, M1, Cnt+1};
   				   _ -> Max0
   			       end;
   
  
positive.code:     ok.
  
  hashmap_balance(KeyFun) ->
      F = fun(I, {M0,Max0}) ->
  		Key = KeyFun(I),
  		M1 = M0#{Key => Key},
  
negative.code: 		{M1, Max1}
  	end,
  
      {_,{MaxDiff,MaxMap, FatCnt}} = lists:foldl(F,
  					       {#{}, {0, undefined, 0}},
  					       lists:seq(1,10000)),
      case MaxMap of
  	undefined ->
  	    io:format("Wow, no map with more than \"average\" number of nodes\n");
  	_ ->
  	    io:format("Found ~p maps with more than \"average\" number of nodes\n",
  		      [FatCnt]),
  	    io:format("Max std dev diff ~p for map of size ~p (nodes=~p, flatsize=~p)\n",
  		      [MaxDiff, maps:size(MaxMap), hashmap_nodes(MaxMap),
  		       erts_debug:flat_size(MaxMap)])
  