anchor.diff:         [CPUSeq1, Process1, CPU1, CPUSeq2, Process2, CPU2])
      end|| Seq <- lists:seq(1, HalfSchedulerNum)].
   
  +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) ->
     {_, CurFun} = lists:keyfind(current_function, 1, Call),
     {_, InitialCall} = lists:keyfind(initial_call, 1, Call),
  
positive.code:     "b\n" -> erlang:send(Pid, binary_memory), top(Pid);
      "h\n" -> erlang:send(Pid, total_heap_size), top(Pid);
      "m\n" -> erlang:send(Pid, memory), top(Pid);
      "p\n" -> erlang:send(Pid, pause_or_unpause), top(Pid);
      _ -> top(Pid)
    end.
  
  
negative.code: %Binary          | 0.0164M                                                                                                       |
  %|01[|||||||||||||||||||                                 36.68%]  |03[|||||||||||||||||||||||||                           49.17%]|
  %|02[|||||||||||||||||||                                 37.51%]  |04[|||||||||||||||||||||||||||||||||||||||||||         83.68%]|
  draw_node_status() ->
    [{ProcessSum, MemSum}] = recon:node_stats_list(1, 0),
    draw_memory_process_info(ProcessSum, MemSum),
    draw_scheduler_usage(MemSum),
  