anchor.diff:      inet:setopts(Sock, [{active,once}]),
       receive
   	{tcp,Sock,Data} ->
  -	    receive_poll( S#s{enc = <<(S#s.enc)/binary,Data/binary>>} );
  +	    receive_poll( S#s{encrypted_data_buffer = <<(S#s.encrypted_data_buffer)/binary,Data/binary>>} );
   	{tcp_closed,Sock} ->
   	    throw({tcp,tcp_closed});
   	{tcp_error, Sock, Reason} ->
  
positive.code: 	  opts = [],
  	  timeout = 5000,			% ms
  	  seen_hello = false,
  	  enc = <<>>,
  	  ssh = #ssh{},				% #ssh{}
  	  alg_neg = {undefined,undefined},      % {own_kexinit, peer_kexinit}
  	  alg,                                  % #alg{}
  	  vars = dict:new(),
  	  reply = [],				% Some repy msgs are generated hidden in ssh_transport :[
  	  prints = [],
  	  return_value
  	 }).
  
  -define(role(S), ((S#s.ssh)#ssh.role) ).
  
  
negative.code: 		    S = opt(print_messages, S0, 
  			    fun(X) when X==true;X==detail -> {"Recv info~n~p~n",[Line]} end),
  		    S#s{seen_hello = false,
  			encrypted_data_buffer = Rest,
  			return_value = {info,Line}};
  		S1=#s{} ->
  		    S = opt(print_messages, S1,
  			fun(X) when X==true;X==detail -> {"Recv hello~n~p~n",[Line]} end),
  		    S#s{seen_hello = true,
  			encrypted_data_buffer = Rest,
  			return_value = {hello,Line}}
  	    end
      end.
  