anchor.diff:  proplists_to_jsx_input(List) ->
   	[{transform(X),transform(Y)} || {X,Y} <- List].
   	
  +transform([]) ->
  +	[];
   transform(true) ->
   	true;
   transform(false) ->
   	false;	
  +transform(Value) when is_pid(Value) ->
  +	list_to_binary(pid_to_list(Value));
   transform(Value) when is_atom(Value) ->
   	erlang:atom_to_binary(Value, utf8);
  -transform([]) ->
  -	[];
  -
   transform([H|T]) when is_list(H) ->
   	[transform(X)||X<-[H|T]];
  -transform(Value) when is_list(Value) ->
  -	case is_tuple_list(Value) of 
  -		true -> proplists_to_jsx_input(Value);
  -		false -> erlang:list_to_binary(Value)
  -	end;
  +transform([H|T]) when is_tuple(H) ->
  +	proplists_to_jsx_input([H|T]);
   transform(Value) when is_tuple(Value) ->
   	[transform(X)||X<-tuple_to_list(Value)];
  +transform(Value) when is_list(Value) ->
  +	case is_string(Value) of 
  +		true -> list_to_binary(Value);
  +		false -> [transform(X)||X<-Value]
  +	end;
   transform(Value) ->
   	Value.
  -is_tuple_list([]) ->	
  -	false;
  -is_tuple_list([H|_T]) ->
  -	is_tuple(H). 
  +
  +is_string([]) -> true;
  +is_string([X|T]) -> is_integer(X) andalso X>=0 andalso is_string(T);
  +is_string(_) -> false.
   
   -include_lib("eunit/include/eunit.hrl").
   -ifdef(TEST).
  
positive.code: 	?assertEqual(<<"test">>, transform("test")),
  	?assertEqual([{<<"a">>,<<"b">>}, {<<"c">>,<<"d">>}], transform([{a,b}, {c,d}])),
  	?assertEqual([], transform([])),
  	?assertEqual([<<"<0.0.0>">>], transform(["<0.0.0>"])),
  	?assertEqual([<<"test">>, <<"test2">>], transform(["test", "test2"])),
  	?assertEqual([<<"a">>,<<"b">>, <<"c">>], transform({a,b,c})),
  	?assertEqual([{<<"a">>,<<"b">>}, {<<"c">>,<<"d">>}], proplists_to_jsx_input([{a,b}, {c,d}])).
  -endif.
  
negative.code: 	B = [{<<"a">>, true}, {<<"b">>, <<"test">>}, {<<"c">>, 1}],
  	?assertEqual(B, proplists_to_jsx_input(A)).
  	
  is_string_test() ->
  	?assertEqual(true, is_string("test")).
  
  transform_test() ->
  	?assertEqual(<<"test">>, transform(test)),
  	?assertEqual(true, transform(true)),
  