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:   New_DNS_State = DNS_State#dns_worker_state{workers_list = NewWorkersList},
    ok = gen_server:call(?MODULE, {updatePlugInState, New_DNS_State}),
  
  	case Module of
      control_panel ->
        {ok, Result2};
      _ ->
        case (length(Result2) > 1) or (length(NodesList) =< 1)  of
          true -> {ok, Result2};
          false ->
            {S1,S2,S3} = now(),
            random:seed(S1,S2,S3),
            NodeNum = random:uniform(length(NodesList)),
            {NewNode, _} = lists:nth(NodeNum, NodesList),
            case Result2 =:= [NewNode] of
              true ->
                {NewNode2, _} = lists:nth((NodeNum rem length(NodesList) + 1) , NodesList),
                {ok, Result2 ++ [NewNode2]};
              false ->
                {ok, Result2 ++ [NewNode]}
            end
        end
    end;
  
  handle(_ProtocolVersion, get_nodes) ->
  
negative.code: 
    case AvgLoad of
      0 ->
        Res = make_ans_random(lists:map(
          fun({Node, _}) ->
            Node
          end, NodesList)),
        {ok, Res};
      _ ->
        {S1,S2,S3} = now(),
        random:seed(S1,S2,S3),
  