anchor.diff:  
   -record(key_pair,
           {type = ecdh,
  -         %% The curve choice greatly affects setup time,
  -         %% we really want an Edwards curve but that would
  -         %% require a very new openssl version.
  -         %% Twisted brainpool curves (*t1) are faster than
  -         %% non-twisted (*r1), 256 is much faster than 384,
  -         %% and so on...
  -%%%         params = brainpoolP384t1,
  -%%%         params = brainpoolP256t1,
            params = ?CURVE,
            public,
            private,
  
positive.code: 
  %% -------------------------------------------------------------------------
  
  death_row(Reason) ->
      error_logger:info_report(
        [?FUNCTION_NAME,
         {reason, Reason},
         {pid, self()}]),
      receive after 5000 -> exit(Reason) end.
  
  %% -------------------------------------------------------------------------
  
  
negative.code: %% Entry function
  input_handler(#params{socket = Socket} = Params, Seq, DistHandle) ->
      try
          ok =
              inet:setopts(
                Socket, [{active, ?TCP_ACTIVE}, nodelay()]),
          input_handler(
            Params#params{dist_handle = DistHandle},
            Seq)
  