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: 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;
  
negative.code:           send_response_to_client(Status, RequestPipe2, ResponsePipe, Port, Sock, Host, Path)
        end;
      {error, closed} ->
        % io:format("socket closed~n"),
        ok = gen_tcp:close(Sock),
        safe_port_close(Port);
      {error, Reason} ->
  