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:   erlang:cancel_timer(LastTimeRef),
    receive
      stop -> stop;
      pause_or_unpause ->
        clear_screen(),
        {NewUpTime, _} = erlang:statistics(wall_clock),
        loop(Interal, Type, NewUpTime, StableInfo, LastTimeRef, true);
  
negative.code:     ["Pid", "Total Heap Size", "Initial Call", "Reductions", "Msg Queue", "Current Function"]),
    [begin
       {Pid, HeapSize, Call = [IsName|_]} = lists:nth(Pos, HeapList),
       [{_, Reductions}, {_, MsgQueueLen}] = get_reductions_and_msg_queue_len(Pid),
       {CurFun, InitialCall} = get_current_initial_call(Call),
       NameOrPid = get_display_name_or_pid(IsName, Pid),
       io:format("| ~-19.19s|~10.10s| ~-25.25s|~10.10s| ~-7.7s|~-48.48s|~n",
         [NameOrPid, to_list(HeapSize), InitialCall, to_list(Reductions), to_list(MsgQueueLen), CurFun])
     end|| Pos <- lists:seq(1, Num)].
  