anchor.diff:  
   for_to_ex(I, N, Fun, AccuFun, Accu) ->
       NewAccu = AccuFun(Fun(I), Accu),
  -    if 
  +    if
           I < N ->
               for_to_ex(I + 1, N, Fun, AccuFun, NewAccu);
           I =:= N ->
               NewAccu;
           I > N ->
               failed
  -    end.+    end.
  
positive.code: -define(Fpr_Test_NumTests, 30).
  
  all() -> [
  		  tester_add,
  		  tester_add_list,
            tester_join,
            tester_equals,
            tester_fpr,
            %fprof,
            time_measurement
  		 ].
  
  suite() ->
      [
  
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
  