anchor.diff:  read_from_socket(Sock) ->
     case gen_tcp:recv(Sock, 0, 100) of
       {ok, Data} ->
  -      io:format("socket = ~p~n", [Data]),
  +      % io:format("socket = ~p~n", [Data]),
         {data, list_to_binary(Data)};
       {error, Reason} ->
         {error, Reason}
  
positive.code: gather_request(Sock, DataSoFar, Pipe) ->
    try
      {ok, Data, P2} = read_chunk_from_socket(Sock, Pipe),
      io:format("~p~n", [Data]),
      TotalData = lists:append(DataSoFar, [Data]),
      if
        Data =:= <<"0000">> ->
  
negative.code: readline(Port) ->
    receive
      {Port, {data, Data}} ->
        % io:format("port = ~p~n", [Data]),
        {data, Data};
      Msg ->
        error_logger:error_msg("unknown message ~p~n", [Msg]),
  