anchor.diff:      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]"])}
  -                     ])
  +              TimeMicroSec =  measure_connect(Config,
  +                                              [{preferred_algorithms,PrefAlgs}]),
  +              report(["Connect erlc erld ",KexAlg," [connects per sec]"],
  +                     1000000 / TimeMicroSec)
         end, KexAlgs).
   
   
  
positive.code:              ssh:close(C),
               Time
           end || _ <- lists:seq(1,?Nruns)],
      
      report([{value, 1000000 / median(Times)}, % Time in µs
              {suite, ?MODULE},
              {name, mk_name(["Transfer ",Cipher,"/",Mac," [Mbyte per sec]"])}]).
  
  send_wait_acc(C, Ch, Data) ->
      ssh_connection:send(C, Ch, Data),
  
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].
  
  