anchor.diff:  	{ok, {Domain, [
   		RoutingData || {_Domain, _RoutingGroup, RoutingData} <- ets:lookup(?MODULE, Domain)
   	]}}.
  +
  +insert_domain(Domain, Aliases, HostAddr, TTL, Weight) when is_list(Aliases), is_list(HostAddr) ->
  +	HostSpecs = [ {{{IP, Port}, TTL}, Weight} || {IP, Port} <- HostAddr],
  +	Primary   = [{Domain, Domain, Spec} || Spec <- HostSpecs],
  +	Secondary = [ {<< Alias/bits, $., Domain/bits >>, Domain, Spec} || Spec <- HostSpecs, Alias <- Aliases],
  +	ets:insert(?MODULE, Primary ++ Secondary).
  +
   
   %% ------------------------------------------------------------------
   %% gen_server Function Definitions
  
positive.code: -export([start_link/0]).
  -export([
  	init_tables/0,
  	get_domain_servers/1
  ]).
  
  %% ------------------------------------------------------------------
  
negative.code: 		named_table,
  		{read_concurrency, true}
  	]),
  	insert_domain(<<"hot-proxy.com">>, [<<N>> || N <- lists:seq($0,$9)], [{{127,0,0,1}, 8081}, {{127,0,0,1}, 8082}], 5, 1),
  	ok.
  
  get_domain_servers(Domain) ->
  