anchor.diff:      %%io:format("Keys to use: ~p\n", [Terms]),
       Pairs = lists:map(fun(K) -> list_to_tuple([{K,V} || V <- Terms]) end, Terms),
       lists:foreach(fun(Size) ->
  -			  MapGen = fun() -> map_gen(list_to_tuple(Pairs), Size) end,
  +			  MapGen = fun() -> map_gen(Pairs, Size) end,
   			  repeat(100, fun do_compare/1, [MapGen, MapGen])
   		  end,
   		  lists:seq(1,length(Terms))),
  +    ok.
  +
  +atoms_compare() ->
  +    Atoms = [true, false, ok, '', ?MODULE, list_to_atom(id("a new atom"))],
  +    Pairs = lists:map(fun(K) -> list_to_tuple([{K,V} || V <- Atoms]) end,
  +                      Atoms),
  +    lists:foreach(
  +      fun(Size) ->
  +              M1 = map_gen(Pairs, Size),
  +              M2 = map_gen(Pairs, Size),
  +              %%io:format("Atom maps to compare: ~p AND ~p\n", [M1, M2]),
  +              do_cmp(M1, M2)
  +      end,
  +      lists:seq(1,length(Atoms))),
       ok.
   
   numeric_keys(N) ->
  
positive.code:     io:format("seed = ~p\n", [rand:export_seed()]),
      repeat(100, fun(_) -> float_int_compare() end, []),
      repeat(100, fun(_) -> recursive_compare() end, []),
      ok.
  
  float_int_compare() ->
  
negative.code: 				KV = element(rand:uniform(size(K)), K),
  				{erlang:delete_element(KI,Keys), [KV | Acc]}
  			end,
  			{list_to_tuple(Pairs), []},
  			lists:seq(1,Size)),
  
      maps:from_list(L).
  