anchor.diff:        % http_request_trace(_),
         % http_request_enq(_),
         % http_request_log(_),
  +      http_request_deq(_),
         up_link_return(Pipe, _)
      ].   
   
  
positive.code: %%
  http_request_enq(#http{is = eof, http = {request,  _} = Ht, state = #fsm{queue = Q} = State} = Http) ->
     Req = #req{http = Ht, treq = os:timestamp()},
     Http#http{state = State#fsm{queue = q:enq(Req, Q)}};   
  
  http_request_enq(#http{is = eof, http = {response, _} = Ht, state = #fsm{queue = Q} = State} = Http) ->
     Req = q:head(Q),
     io:format("=[ >>> ]=> ~p~n", [Req]),
     io:format("=[ <<< ]=> ~p~n", [Ht]),
     Http#http{state = State#fsm{queue = q:tail(Q)}};   
  
  http_request_enq(Http) ->
     Http.
  
  % http_request_enq({eof, {request, Http} = Req, #fsm{mode = client, queue = Queue, t = T} = State}) ->
  %    {eof, Req, State#fsm{queue = q:enq({T, T, Http}, Queue)}};
  
negative.code: http_request_trace(State) ->
     State.
  
  
  %%
  %% lens on queue head
  qhead() ->
     fun(Fun, Queue) ->
        lens:fmap(fun(X) -> deq:poke(X, deq:tail(Queue)) end, Fun(deq:head(Queue)))      
     end.
  
  