anchor.diff:      <<Data0/binary, Data1/binary>>.
   
   
  -%% connect_measure(Port, Cipher, Mac, Data, Options) ->
  -%%     report([{value, 1},
  -%%              {suite, ?MODULE},
  -%%              {name, mk_name(["Transfer 1M bytes ",Cipher,"/",Mac," [µs]"])}]);
   connect_measure(Port, Cipher, Mac, Data, Options) ->
       AES_GCM = {cipher,
                  []},
  
positive.code:     lists:foreach(
        fun(KexAlg) ->
                PrefAlgs = preferred_algorithms(KexAlg),
                report([{value, 1000000 /
                             measure_connect(Config,
                                             [{preferred_algorithms,PrefAlgs}])},
                        {suite, ?MODULE},
                        {name, mk_name(["Connect erlc erld ",KexAlg," [connects per sec]"])}
                       ])
        end, KexAlgs).
  
  
  
negative.code:             1 ->
                  lists:nth(N div 2 + 1, SortedData)
          end,
      ct:pal("median(~p) = ~p",[SortedData,Median]),
      Median.
  
  %%%----------------------------------------------------------------
  report(LabelList, Value) ->
      Label = report_chars(lists:concat(LabelList)),
      ct:pal("ct_event:notify ~p: ~p", [Label, Value]),
      ct_event:notify(
        #event{name = benchmark_data,
               data = [{suite, ?MODULE},
                       {name,  Label},
                       {value, Value}]}).
  
  report_chars(Cs) ->
      [case C of
           $- -> $_;
           _ -> C
       end || C <- Cs].
  
  