anchor.diff:                           end,
                            fun(X, Y) -> X + Y end,
                            0),
  -	NumFound / NumNotIn.
  +    NumFound / NumNotIn.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
   time_measurement(_) ->
       %parameter
  -    ExecTimes = 100, 
  +    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)) 
  +    {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), 
  +    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, 
  +    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} = 
  +    {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"
  
positive.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
  
negative.code: -define(Fpr_Test_NumTests, 30).
  
  all() -> [
            tester_add,
            tester_add_list,
            tester_join,
            tester_equals,
            tester_fpr,
            %fprof,
            time_measurement
           ].
  
  suite() ->
      [
  