anchor.diff:  
   dump() ->
       lists:reverse(
  -      lists:keysort(2, dict:to_list(lists:foldl(fun (X, Accum) -> 
  -							dict:merge(fun (_K, V1, V2) -> 
  -									   V1 + V2 
  -								   end, 
  -								   Accum, 
  -								   dict:store(
  -								     lists:keysearch(current_function, 
  -										     1, 
  -										     erlang:process_info(X, current_function)
  -										    ), 
  -								     1, 
  -								     dict:new()
  -								    )
  -								  ) 
  -						end, dict:new(), processes())))
  +      lists:keysort(
  +	2, dict:to_list(
  +	     lists:foldl(
  +	       fun (X, Accum) -> 
  +		       dict:merge(fun (_K, V1, V2) -> 
  +					  V1 + V2 
  +				  end, 
  +				  Accum, 
  +				  dict:store(
  +				    lists:keysearch(current_function, 
  +						    1, 
  +						    [erlang:process_info(X, current_function)]
  +						   ), 
  +				    1, 
  +				    dict:new()
  +				   )
  +				 ) 
  +	       end, dict:new(), processes())))
        ).
   
   dump2() ->
  
positive.code:     spawn(fun () -> log() end).
  
  log() ->
      {ok, F} = file:open("mem.log", write),
      log(F).
  
  log(F) ->
  
negative.code:     end.
  
  get_stacktrace() ->
      erlang:get_stacktrace().
  
  ksplit(List, K) ->
      N = length(List),
  