anchor.diff:        % io:format("success"),
         port_command(Port, "0009done\n"),
         {ok, RequestPipe};
  -    A ->
  +    _ ->
         % io:format("~p~n", [A]),
         case pipe:peek(9, RequestPipe) of
           {ok, <<"0009done\n">>} ->
  
positive.code:           port_command(Port, "0009done\n"),
            {ok, _Data, P2} = pipe:read(9, RequestPipe),
            {ok, P2};
          B ->
            % io:format("~p~n", [B]),
            {ok, RequestPipe}
        end
  
negative.code:   case gather_request(Sock, RequestPipe) of
      {ok, Request, RequestPipe2} ->
        % io:format("req = ~p~n", [Request]),
        log_request(Request, Host, Path),
        port_command(Port, Request),
        {ok, RequestPipe3} = check_request_termination(RequestPipe2, Sock, Port),
        send_response_to_client(RequestPipe3, ResponsePipe, Port, Sock, Host, Path);
  