anchor.diff:      to_string(HitsAttr).
   
   
  +erlson_test() ->
  +    %% create an empty dictionary
  +    X = #{},
  +    
  +    %%associate fields 'foo' with 1, 'bar' with "abc" and 'fum' with 'true'
  +    D = #{foo = 1, bar = <<"abc">>, fum},
  +    %$ access dictionary element
  +    1 = D.foo,
  +    
  +    %$ add nested dictionaries to dictionary D
  +    D1 = D#{baz = #{fum = #{i = 0}}},
  +    %% access elements of the nested dictionary
  +    0 = D1.baz.fum.i,
  +
  +    %% modify elements of the nested dictionary
  +    D2 = D1#{baz.fum.i = 100, baz.fum.j = <<"new nested value">>},
  +
  +    ErlJson = erlson:to_json(D2),
  +    erlang:display("1*****************************************************************"),
  +    erlang:display(ErlJson),
  +
  +
  +    Json = to_string(ErlJson),
  +    erlang:display("2*****************************************************************"),
  +    erlang:display(Json),
  +
  +    ErlJsonEncode = encode(ErlJson),
  +    erlang:display("3*****************************************************************"),
  +    erlang:display(ErlJsonEncode),
  +
  +
  +    JsonEncode = encode(Json),
  +    erlang:display("4*****************************************************************"),
  +    erlang:display(JsonEncode),
  +
  +    case JsonEncode =:= ErlJsonEncode of
  +	true ->
  +	    erlang:display("poff");
  +	false ->
  +	    erlang:display("pang")
  +    end,
  +
  +    Json2 = erlson:from_json(JsonEncode),
  +    erlang:display("5*****************************************************************"),
  +    erlang:display(Json2),
  +
  +    erlang:display("6*****************************************************************"),
  +    erlang:display(Json2),       
  +    Json3 = erlson:from_json(Json),
  +    erlang:display("7*****************************************************************"),
  +    erlang:display(Json3),
  +    NewJson3 = field_replace(Json, "baz.fum.i", [1,2,3,4,5]),
  +    erlang:display("8*****************************************************************"),
  +    erlang:display(NewJson3),
  +
  +    NewJson4 = field_replace(NewJson3, "baz.fum.i.0", 9999999),
  +    erlang:display("9*****************************************************************"),
  +    erlang:display(NewJson4)
  +
  +
  +	.
  +
  +
   %% ====================================================================
   %% Internal functions
   %% ====================================================================
  
positive.code: %% API functions
  %% ====================================================================
  -export([add_field/3, 
  	 decode/1, 
  	 encode/1, 
  	 field_value_exists/3, 
  
negative.code: 	 get_list_and_add_id/1,
  	 get_field_value/3, 
  	 set_attr/2,
  	 to_string/1,
  	 erlson_test/0]).
  -include("misc.hrl").
  
  add_value_in_list(List, Value) when is_list(List) ->    
          erlang:display(List),
          V = decode(Value),
          erlang:display(V),
          [L] = List,
          A = [V , L],
          erlang:display("AAA"),
          erlang:display(to_string(A)),
          A.
  
  %% @doc
  %% Function: encode/1
  