anchor.diff:  %%%------------------------------------------------------------------   
   
   %%
  -%% build socket object and stream filters
  +%% build socket object with stream filters
   -spec socket() -> {ok, #socket{}}.
   -spec socket([_]) -> {ok, #socket{}}.
   
  
positive.code:    ?DEBUG("knet [tcp]: suspend ~p", [(State#fsm.stream)#stream.peer]),
     {next_state, 'HIBERNATE', State, hibernate};
  
  'ESTABLISHED'(Msg, Pipe, #fsm{sock = Sock, stream = Stream0} = State)
   when ?is_iolist(Msg) ->
     try
  
negative.code:    [$^ ||
        fmap(pipe:a(Pipe, {tcp, self(), {terminated, Reason}})),
        fmap(State)
     ].
  
  %%
  tcp_downlink_send(Pckt, #state{socket = Sock} = State) ->
     [$^ ||
        send(Pckt, Sock),
        fmap(State#state{socket = _})
     ].
  
  
  