anchor.diff:  to_list(A) when is_tuple(A) -> tuple_to_list(A);
   to_list(A) when is_integer(A) -> integer_to_list(A).
   
  +lks(Tag,TVs,Def) ->
  +  try lks(Tag,TVs) 
  +  catch not_found -> Def
  +  end.
  +
  +lks(_, [])              -> throw(not_found);
   lks(Tag, [{Tag,Val}|_]) -> Val;
  -lks(Tag, [_|List]) -> lks(Tag, List).
  +lks(Tag, [_|List])      -> lks(Tag, List).
  
positive.code:   M	    = pad(element(2,Time),2,$0,left),
    S	    = pad(element(3,Time),2,$0,left),
    Node	    = to_list(lks(node, Sys)),
    MEMbeam   = to_list(round(lks(beam_vss, Sys)/1048576)),
    MEM	    = to_list(round(lks(total, Sys)/1048576)),
    CPUbeam   = to_list(100*(lks(beam_user,Sys)+lks(beam_kernel,Sys))),
    CPU       = to_list(100*(lks(user,Sys)+lks(kernel,Sys))),
    Procs	    = to_list(lks(procs,Sys)),
    RunQ	    = to_list(lks(run_queue, Sys)),
  
  
negative.code: 
  cpu_per_red(Sys) ->
    case lks(reductions,Sys) of
      0    -> 0;
      Reds -> 100*(lks(beam_user,Sys,1)+lks(beam_kernel,Sys,0))/Reds
    end.
  
  procsI(PP,CpuPerRed) ->
  