anchor.diff:      to_atom(?b2l(V));
   to_atom(V) ->
       list_to_atom(V).
  +    
  +to_json(V) ->
  +    iolist_to_binary(?JSON_ENCODE(V)).
  
positive.code: make_query_list([], _Bindings, Acc) ->
      Acc;
  make_query_list([{Key, {Value}}|Rest], Bindings, Acc) ->
      Value1 = make_query_list(Value, Bindings, []),
      make_query_list(Rest, Bindings, [{to_atom(Key), Value1}|Acc]);
  make_query_list([{Key, Value}|Rest], Bindings, Acc) when is_binary(Value) ->
      Value1 = replace_var(Value, Bindings),
      make_query_list(Rest, Bindings, [{to_atom(Key), Value1}|Acc]);
  make_query_list([{Key, Value}|Rest], Bindings, Acc) when is_list(Value) ->
  
      Value1 = replace_vars(Value, Bindings, []),
      make_query_list(Rest, Bindings, [{to_atom(Key), Value1}|Acc]);
  make_query_list([{Key, Value}|Rest], Bindings, Acc) ->
      make_query_list(Rest, Bindings, [{to_atom(Key), Value}|Acc]).
      
  replace_vars([], _Bindings, Acc) ->
      lists:reverse(Acc);
  replace_vars([V|R], Bindings, Acc) ->
      V1 = replace_var(V, Bindings),
      replace_vars(R, Bindings, [V1|Acc]).
      
  replace_var(Value, Bindings) ->
      case Value of
          <<":", Var/binary>> ->
              Var1 = list_to_atom(binary_to_list(Var)),
              proplists:get_value(Var1, Bindings, Value);
          _ -> Value
      end.
  
  
  
negative.code:     path_to_list(R, [P1|Acc]).
  
  encode_query(Props) ->
      Props1 = lists:foldl(fun ({K, V}, Acc) ->
          V1 = case is_list(V) of
              true -> V;
              false when is_binary(V) ->
                  V;
              false ->
                  mochiweb_util:quote_plus(V)
          end,              
          [{K, V1} | Acc]
      end, [], Props),
      lists:flatten(mochiweb_util:urlencode(Props1)).
  
  to_atom(V) when is_atom(V) ->
      V; 
  