anchor.diff:    EtsMem = to_megabyte_list(proplists:get_value(memory_ets, ProcessSum)),
     ProcessCount = integer_to_list(proplists:get_value(process_count, ProcessSum)),
     Runqueue = integer_to_list(proplists:get_value(run_queue, ProcessSum)),
  -  ErrorLogCount = integer_to_list(proplists:get_value(error_logger_queue_len, ProcessSum)),
     BytesIn = to_megabyte_list(proplists:get_value(bytes_in, MemSum)),
     BytesOut = to_megabyte_list(proplists:get_value(bytes_out, MemSum)),
  -  GcCount = to_megabyte_list(proplists:get_value(gc_count, MemSum)),
  -  GcWordsReclaimed = to_megabyte_list(proplists:get_value(gc_words_reclaimed, MemSum)),
  +  GcCount = to_list(proplists:get_value(gc_count, MemSum)),
  +  GcWordsReclaimed = to_list(proplists:get_value(gc_words_reclaimed, MemSum)),
     Reductions = integer_to_list(proplists:get_value(reductions, MemSum)),
     io:format("\e[46m~-15.15s | ~-15.15s | ~-18.18s | ~-20.20s | ~-20.20s | ~-25.25s\e[49m|~n",
       ["Memory", "Megabyte", "Process State", "Count", "Memory", "Megabyte"]),
  
positive.code:        [NameOrPid, to_list(HeapSize), InitialCall, to_list(Reductions), to_list(MsgQueueLen), CurFun])
     end|| Pos <- lists:seq(1, Num)].
  
  draw_system_info(FirstLine, ProcLimit, ProcCount, PortCount,
      PortLimit, EtsLimit, LogicalProc, UseMem, AlloctedMem, UnunsedMem) ->
    io:format("~s~n", [FirstLine]),
    io:format("\e[46m~-15.15s | ~-15.15s | ~-18.18s | ~-20.20s | ~-20.20s | ~-25.25s\e[49m|~n",
      ["System Limit", "Limit", "System Count", "Count", "Memory Info", "Megabyte|"]),
    io:format("~-15.15s | ~-15.15s | ~-18.18s | ~-20.20s | ~-20.20s | ~-25.25s|~n",
      ["Process Limit", ProcLimit, "Process Count", ProcCount, "Use Mem", UseMem]),
    io:format("~-15.15s | ~-15.15s | ~-18.18s | ~-20.20s | ~-20.20s | ~-25.25s|~n",
      ["Port Limit", PortLimit, "Port Count", PortCount, "Allocted Mem", AlloctedMem]),
    io:format("~-15.15s | ~-15.15s | ~-18.18s | ~-20.20s | ~-20.20s | ~-25.25s|~n",
      ["Ets Limit", EtsLimit, "Logical Processors", LogicalProc, "Unuse Mem", UnunsedMem]).
  
  draw_memory_process_info(ProcessSum, MemSum) ->
    TotalMem = to_megabyte_list(proplists:get_value(memory_total, ProcessSum)),
    ProcMem = to_megabyte_list(proplists:get_value(memory_procs, ProcessSum)),
    AtomMem = to_megabyte_list(proplists:get_value(memory_atoms, ProcessSum)),
  
negative.code: get_reductions_and_msg_queue_len(Pid) ->
    case recon:info(Pid, [reductions, message_queue_len]) of
      undefined -> [{reductions, "die"}, {message_queue_len, "die"}];
      Ok -> Ok
    end.
  
  get_current_initial_call(Call) ->
  