anchor.diff:  %%%----------------------------------------------------------------
   %%%
   init_per_group(Group, Config) ->
  -    ct:pal("~p(~p,..)",[?FUNCTION_NAME,Group]),
       case atom_to_list(Group) of
           "ciphers_"++KeySizeStr ->
               KeySize = list_to_integer(KeySizeStr),
  -            [{key_size,KeySize}
  -             | measure_openssl_aes_cbc(KeySize, Config)];
  +            [{key_size,KeySize} | Config];
   
           "textblock_"++BlockSizeStr ->
               BlockSize = list_to_integer(BlockSizeStr),
  
positive.code: %%%
  %%%
  block(Config) ->
      run_cryptos([aes_cbc, aes_gcm, aes_ccm, chacha20_poly1305],
                  Config).
  
  stream(Config) ->
      run_cryptos([aes_ctr, chacha20],
                  Config).
      
  %%%================================================================
  %%%
  %%%
  
negative.code:     OverHead = proplists:get_value(overhead, Config, 0),
      [try
           TimePerOpBrutto = run(Crypto,KeySize,BlockSize,MilliSecGoal),
           %% ct:pal("Brutto: ~p Overhead: ~p (~.2f %) Netto: ~p",
           %%        [TimePerOpBrutto, OverHead, 100*OverHead/TimePerOpBrutto,TimePerOpBrutto - OverHead]),
           TimePerOpBrutto - OverHead
       of
           TimePerOp -> % µs
  