anchor.diff:      p(get(sname), F, A).
   
   p(SName, F, A) ->
  -    io:format("[server:~s,~p][~s] " ++ F ++ "~n", 
  +    io:format("[~s,~p][~s] " ++ F ++ "~n", 
                 [SName,self(),formated_timestamp()|A]).
       
  
positive.code: -define(REQ, 0).
  -define(REP, 1).
  
  -record(handler, {socket, parent}).
  
  start() ->
      start_tcp().
  
negative.code:     which_addr2(Domain, IFO).
  
  
  acceptor_loop(#acceptor{socket = LSock} = A) ->
      i("try accept"),
      case socket:accept(LSock, infinity) of
          {ok, Sock} ->
  