anchor.diff:  
   lelem("_") -> '_';
   lelem(E)   -> l2b(E).
  +
  +binary_to_elems(B) ->
  +  string:tokens(binary_to_list(B),"/").
   
   l2b(L) ->
     list_to_binary(L).
  
positive.code:   catch _:_ -> ets:insert(Tab,{Key,1}),"1"
    end.
  
  unpack(KVs) ->
    {PL} = jd(KVs),
    [{K,je(V)} || {K,V} <- PL].
  
  jd(Term) ->
    jiffy:decode(Term).
  
  
negative.code:                rets_client:put(localhost,tibbe)),
    ?assertEqual({200,"true"},
                 rets_client:post(localhost,tibbe,
                                  [{'aaa/1/x',"AAA"},
                                   {bbb,bBbB},
                                   {ccc,123.1},
                                   {ddd,[{a,"A"},{b,b},{c,123.3}]}])),
    ?assertEqual({200,"AAA"},
                 rets_client:get(localhost,tibbe,'aaa/_/x')),
    ?assertEqual({200,"AAA"},
                 rets_client:get(localhost,tibbe,'_/1/_')),
    ?assertEqual({200,bBbB},
                 rets_client:get(localhost,tibbe,bbb)),
    ?assertEqual({200,123.1},
  