anchor.diff:                              P ! {continue, self()},
                               CS;
                           {error, eaddrnotavail = Reason} ->
  -                            exit({skip, Reason})
  +                            exit({skip, connect_failed_str(Reason)})
                       end,
                   _ = [gen_tcp:send(S, Payload) || _ <- lists:seq(1, Cnt)],
                   gen_tcp:close(S),
  
positive.code:     end.
  
  do_sort(P, List0) ->
      io:format("[~w]Sort: ~p\n", [self(), List0]),
      List = [El++"\n" || El <- List0],
      {ok,S} = gen_tcp:connect(localhost, P, [{packet,line}]),
      send_lines(S, List),
      ok = gen_tcp:shutdown(S, write),
      Lines = collect_lines(S, true),
      io:format("[~w]Collected: ~p\n", [self(), Lines]),
      SortedLines = lists:sort(List),
      io:format("[~w]Sorted: ~p\n", [self(), SortedLines]),
      Lines = SortedLines,
      ok = gen_tcp:close(S).
  
  
negative.code: 
  send_lines(S, Lines) ->    
      lists:foreach(fun(Line) ->
                            p("send_line(~w): ~p", [S, Line]),
  			  ok = gen_tcp:send(S, Line)
  		  end, Lines).
  
  