anchor.diff:          end, TeamList).
   
   
  -% Find certain XML node in one parent -> one children hierarchy
  +%% find_XML_node/2
  +%% ====================================================================
  +%% @doc
  +%% Finds certain XML node. Assumes that node exists, and checks only
  +%% the first child of every node going deeper and deeper.
  +%% @end
  +-spec find_XML_node(atom(), #xmlElement{}) -> [string()].
  +%% ====================================================================
   find_XML_node(NodeName, #xmlElement{name = NodeName} = XMLElement) ->
       XMLElement;
   
  
positive.code:     end.
  
  
  % Make the response more readable
  normalise_response({ok, RcodeList, Headers, Body}) ->
      RcodeInt = list_to_integer(RcodeList),
      LowHeaders = [{string:to_lower(K), V} || {K, V} <- Headers],
  
negative.code: normalise_response(X) -> X.
  
  
  %% parse_teams/1
  %% ====================================================================
  %% @doc
  %% Parses user's teams from XML to a list of strings.
  %% @end
  -spec parse_teams(string()) -> [string()].
  %% ====================================================================
  parse_teams(XMLContent) ->
      {XML, _} = xmerl_scan:string(XMLContent),
      #xmlElement{content = TeamList} = find_XML_node(teams, XML),
  