anchor.diff:  -export([dump/1]).
   -export([load/1]).
   
  +-export([i/1]).
   -export([top/1]).
   -export([top/2]).
   
  
positive.code:         false -> "/tmp"
      end.
  
  to_bin(E) ->
      genlib:to_binary(E).
  
  nl() ->
      io_lib:nl().
  
negative.code: 
  %%
  
  -type pidterm() :: pid() | {pos_integer(), pos_integer(), pos_integer()} | binary() | string().
  -type criterion() :: memory | binary | message_queue | reductions.
  
  -spec i(pidterm() | atom()) -> ok | undefined.
  
  i(Name) when is_atom(Name) ->
      format_first(lists:dropwhile(fun (#{registered_name := N}) -> N /= Name end, get_dump()));
  i(PidTerm) ->
      Pid = to_pid(PidTerm),
      format_first(lists:dropwhile(fun (#{pid := P}) -> P /= Pid end, get_dump())).
  
  format_first([H | _]) ->
      io:format(format_process_info(H));
  format_first([]) ->
      undefined.
  
  -spec top(criterion()) -> ok.
  -spec top(criterion(), pos_integer()) -> ok.
  