anchor.diff:  fetch_warning_message(BC) ->
       etorrent_bcoding:search_dict_default({string, "warning message"}, BC, none).
   
  --spec shuffle_tiers([tier()]) -> [tier()].
   shuffle_tiers(Tiers) ->
       [etorrent_utils:shuffle(T) || T <- Tiers].
   
  
positive.code: 	    swap_in_tier(Url, T, [H | Acc])
      end.
  
  -spec should_swap_for(string(), string()) -> boolean().
  should_swap_for(Url1, Url2) ->
      {S1, _UserInfo, Host1, _Port, _Path, _Query} = etorrent_http_uri:parse(Url1),
      {_S2, _, Host2, _, _, _} = etorrent_http_uri:parse(Url2),
  
negative.code:     {F, R} = lists:split(K, List),
      [F | unsplice(KR, R)].
  
  swap_urls(Tiers) ->
      {Breaks, CL} = splice(Tiers),
      NCL = swap(CL),
      unsplice(Breaks, NCL).
  
  swap([]) -> [];
  swap([Url | R]) ->
      {H, T} = swap_in_tier(Url, R, []),
  