anchor.diff:  gather_request(Sock, DataSoFar, Pipe) ->
     try
       {ok, Data, P2} = read_chunk_from_socket(Sock, Pipe),
  -    io:format("~p~n", [Data]),
  +    % io:format("~p~n", [Data]),
       TotalData = lists:append(DataSoFar, [Data]),
       if
         Data =:= <<"0000">> ->
  
positive.code: read_from_socket(Sock) ->
    case gen_tcp:recv(Sock, 0, 100) of
      {ok, Data} ->
        io:format("socket = ~p~n", [Data]),
        {data, list_to_binary(Data)};
      {error, Reason} ->
        {error, Reason}
  
negative.code: stream_out(Port, Sock, Pipe) ->
    % io:format("stream out "),
    {ok, Data, P2} = read_chunk(Port, Pipe),
    % io:format("~p~n", [Data]),
    gen_tcp:send(Sock, Data),
    case Data =:= <<"0000">> of
      true  -> done;
  