anchor.diff:              [Node | TmpAns]
           end
         end,
  -      {ok, lists:foldl(ChooseNodes, [], NodesList)}
  +      Result = lists:foldl(ChooseNodes, [], NodesList),
  +      Result2 = make_ans_random(Result),
  +      create_ans(Result2, NodesList)
     end;
   
   handle(ProtocolVersion, Msg) ->
  
positive.code: 
    case AvgLoad of
      0 ->
        {ok, lists:map(
          fun({Node, _}) ->
            Node
          end, NodesList)};
      _ ->
        {S1,S2,S3} = now(),
        random:seed(S1,S2,S3),
  
negative.code:   end,
      "Error stopping dns tcp listener, status ~p"),
    ok.
  
  create_ans(Result, NodesList) ->
    case (length(Result) > 1) or (length(NodesList) =< 1)  of
      true -> {ok, Result};
      false ->
        NodeNum = random:uniform(length(NodesList)),
        {NewNode, _} = lists:nth(NodeNum, NodesList),
        case Result =:= [NewNode] of
          true ->
            {NewNode2, _} = lists:nth((NodeNum rem length(NodesList) + 1) , NodesList),
            {ok, Result ++ [NewNode2]};
          false ->
            {ok, Result ++ [NewNode]}
        end
    end.
  
  make_ans_random(Result) ->
    Len = length(Result),
    case Len of
      0 -> [];
      1 -> Result;
      _ ->
        NodeNum = random:uniform(),
        NewRes = lists:sublist(Result, 1, NodeNum) ++ lists:sublist(Result, NodeNum + 1, Len),
        [lists:nth(NodeNum, Result) | NewRes]
    end.