anchor.diff:                                end
                         end, {MaxNum, []}, DB),
       %% see HINT in foldl/3
  -    lists:foldl(Fun, Acc, Data).
  +    lists:foldr(Fun, Acc, Data).
   
   %% @doc makes a foldr over the whole dataset.
   %%      Returns a potentially larger-than-memory dataset. Use with care.
  
positive.code:     CutData = lists:sublist(Keys, MaxNum),
      %% see HINT in foldl/3
      %% now retrieve actual data
      lists:foldr(fun(Key, AccIn) ->
                          Entry = toke_drv:get(DB, ?IN(Key)),
                          Fun(?OUT(Entry), AccIn)
                  end, Acc, CutData).
  
negative.code:                                  [?OUT(Entry) | AccIn]
                           end, [], DB),
      %% see HINT in foldl/3
      lists:foldl(Fun, Acc, Data).
  
  %% @equiv foldr(DB, Fun, Acc0, Interval, get_load(DB))
  %% @doc   Returns a potentially larger-than-memory dataset. Use with care.
  