anchor.diff:      MemorySorted = lists:sublist(
           lists:reverse(
               ordsets:from_list(
  -                [{to_mb(M), get_name(I)} || [{memory, M}, {registered_name, I}, {message_queue_len, _MQ}] <- ProcessesInfo]
  +                [{to_mb(M), {get_name(I), CF, IC}} || [{current_function, CF}, {initial_call, IC}, {memory, M}, {registered_name, I}, {message_queue_len, _MQ}] <- ProcessesInfo]
               )
           ),
           Top
  
positive.code:     lager:info("\nMEMORY PROCESSES INFO\n" ++ MemoryLog),
  
      MQLog = lists:foldl(
          fun({MQ, I}, Acc) ->
              Acc ++ atom_to_list(I) ++ ":" ++ integer_to_list(MQ) ++ "\n"
          end,
          "",
          MQSorted
  
negative.code:     MQSorted = lists:sublist(
          lists:reverse(
              ordsets:from_list(
                  [{MQ, {get_name(I), CF, IC}} || [{current_function, CF}, {initial_call, IC}, {memory, _M}, {registered_name, I}, {message_queue_len, MQ}] <- ProcessesInfo]
              )
          ),
          Top
      ),
  
      MemoryLog = lists:foldl(
          fun({M, {I, {CFM, CFF, CFA}, {ICM, ICF, ICA}}}, Acc) ->
              Acc ++ atom_to_list(I) ++ ":" ++ integer_to_list(M) ++ ":"
              ++ atom_to_list(CFM) ++ "," ++ atom_to_list(CFF) ++ "," ++
              integer_to_list(CFA) ++ ":" ++
              atom_to_list(ICM) ++ "," ++ atom_to_list(ICF) ++ "," ++
              integer_to_list(ICA) ++ "\n"
          end,
          "",
          MemorySorted
  