anchor.diff:                                   end
                            end, [], DB),
       %% see HINT in foldl/3
  -    lists:foldl(Fun, Acc, Data).
  +    lists:foldr(Fun, Acc, Data).
   
   %% @doc foldl iterates over DB and applies Fun(Entry, AccIn) to every element
   %%      encountered in Interval. On the first call AccIn == Acc0. The iteration
  
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:                                  end
                           end, [], DB),
      %% see HINT in foldl/3
      lists:foldl(Fun, Acc, Data).
  
  %% @doc foldr iterates over DB and applies Fun(Entry, AccIn) to every element
  %%      encountered in Interval. On the first call AccIn == Acc0. The iteration
  