anchor.diff:      memory             := Memory,
       reductions         := Reductions,
       messages           := Messages,
  -    binary             := Binary,
  +    binary_memory      := Binary,
       current_stacktrace := Stacktrace
   }) ->
       Bl = "   - ",
  
positive.code:     end.
  
  gather_ps() ->
      [gather_ps_(P) || P <- processes()].
  
  gather_ps_(P) ->
      Items = [
  
negative.code:         reductions,
          messages,
          message_queue_len,
          current_stacktrace,
          binary
      ],
      case erlang:process_info(P, Items) of
          Info when is_list(Info) ->
              {binary, Binaries} = lists:keyfind(binary, 1, Info),
              [[{pid, P}, {binary_memory, gather_binary_memory(Binaries)} | Info]];
          undefined ->
              []
      end.
  
  gather_binary_memory(Binaries) ->
      lists:foldl(fun({_, Mem, _}, Tot) -> Mem + Tot end, 0, Binaries).
  
  -spec load(file:name()) -> ok | {error, atom()}.
  
  