anchor.diff:      spawn(fun () -> log() end).
   
   log() ->
  -    {ok, F} = file:open("mem.log", write),
  +    {ok, F} = file:open("mem.log", [write]),
       log(F).
   
   log(F) ->
  
positive.code: 
  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())))
       ).
  
  dump2() ->
  
negative.code:     end.
  
  get_stacktrace() ->
      erlang:get_stacktrace().
  
  ksplit(List, K) ->
      N = length(List),
  