anchor.diff:  init_per_suite(Config) ->
       _ = crypto:start(),
       Config.
  +
  +end_per_suite(_Config) ->
  +    %crypto:stop(), ???
  +    ok.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  
positive.code:                          end,
                           fun(X, Y) -> X + Y end,
                           0),
  	NumFound / NumNotIn.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  time_measurement(_) ->
      %parameter
      ExecTimes = 100, 
      BFSize = 1000, % req: mod 2 = 0
      
      %measure Build times
      {BTMin, BTMax, BTMed, BTAvg} = 
          measure_util:time_avg(fun() -> for_to_ex(1, round(BFSize / 2), 
                                                   fun(I) -> I end, 
                                                   fun(I, B) -> ?BLOOM:add(B, I) end, 
                                                   newBloom(BFSize, 0.1)) 
                                end,
                                [], ExecTimes, false),
      %measure join time
      BF1 = for_to_ex(1, 
                      round(BFSize / 2), 
                      fun(I) -> I end, fun(I, B) -> ?BLOOM:add(B, I) end, newBloom(BFSize, 0.1)),
      BF2 = for_to_ex(round(BFSize / 2) + 1, 
                      BFSize, 
                      fun(I) -> I end, fun(I, B) -> ?BLOOM:add(B, I) end, newBloom(BFSize, 0.1)),
      {JTMin, JTMax, JTMed, JTAvg} = 
          measure_util:time_avg(fun() -> ?BLOOM:join(BF1, BF2) end, [], ExecTimes, false),
      
      %print results
      ct:pal("EXECUTION TIMES in microseconds~n"
             "PARAMETER - ExecTimes=[~w] - BFSize=[~w]~n"
  
negative.code: %% @doc measures false positives by adding 1..MaxElements into a new BF
  %%      and checking number of found items which are not in the BF
  measure_fp(DestFpr, MaxElements) ->
      BF = newBloom(MaxElements, DestFpr),
      BF1 = for_to_ex(1, MaxElements, fun(I) -> I end, fun(I, B) -> ?BLOOM:add(B, I) end, BF),
      NumNotIn = trunc(10 / DestFpr),
      %count found items which should not be in the bloom filter
      NumFound = for_to_ex(MaxElements + 1,
                           MaxElements + 1 + NumNotIn,
                           fun(I) -> case ?BLOOM:is_element(BF1, I) of
                                         true -> 1;
                                         false -> 0
  