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:     end.
  
  get_stacktrace() ->
      {'EXIT',{badarg,Stacktrace}} = (catch abs(x)),
      Stacktrace.
  
  
  ksplit(List, K) ->
      N = length(List),
  
negative.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() ->
  