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: %%%
  %%% Private
  %%% 
  
  %%%----------------------------------------------------------------
  mk_name(Name) -> [char(C) || C <- lists:concat(Name)].
  
  char($-) -> $_;
  char(C) -> C.
  
  %%%----------------------------------------------------------------
  preferred_algorithms(KexAlg) ->
  
negative.code:              ssh:close(C),
               Time
           end || _ <- lists:seq(1,?Nruns)],
      report(["Transfer ",Cipher,"/",Mac," [Mbyte per sec]"],
             1000000 / median(Times)).
  
  send_wait_acc(C, Ch, Data) ->
      ssh_connection:send(C, Ch, Data),
  