anchor.diff:    [to_list(lks(node, Sys)),
      io_lib:fwrite("~w(~w)", [round(lks(beam_vss, Sys)/1048576),
   			    round(lks(total, Sys)/1048576)]),
  -   to_list((lks(beam_user,Sys)+lks(beam_kernel,Sys))),
  +   to_list(100*(lks(beam_user,Sys)+lks(beam_kernel,Sys))),
      to_list(lks(procs,Sys)),
      to_list(lks(run_queue, Sys)),
      H, M, S,
  
positive.code: -define(SYSEMPTY, ["","","","","",0,0,0,"","","","",""]).
  
  print_sys(Sys) ->
    try 
      io:fwrite(?SYSFORMAT, sysI(Sys))
    catch 
      _:_ -> io:fwrite(?SYSFORMAT, ?SYSEMPTY)
    end.
  
  sysI(Sys) ->
  
negative.code: cpu_per_red(Sys) ->
    case lks(reductions,Sys) of
      0 -> 0;
      Reds -> 100*(lks(beam_user,Sys)+lks(beam_kernel,Sys))/Reds
    end.
  
  procsI(PP,CpuPerRed) ->
  