anchor.diff:        ?MODULE, 'mem_binary', rrd:create(15 * 1000000, 1, gauge)),
       monitor:monitor_set_value(
         ?MODULE, 'mem_ets', rrd:create(15 * 1000000, 1, gauge)),
  -    
  +
       monitor:monitor_set_value(
         ?MODULE, 'rcv_count', rrd:create(15 * 1000000, 1, gauge)),
       monitor:monitor_set_value(
  
positive.code:                            fun(Old) -> rrd:add_now(MemBin, Old) end),
      monitor:monitor_set_value(?MODULE, 'mem_ets',
                             fun(Old) -> rrd:add_now(MemEts, Old) end),
      
      {RcvCnt, RcvBytes, SendCnt, SendBytes} = comm_stats:get_stats(),
      monitor:monitor_set_value(?MODULE, 'rcv_count',
                             fun(Old) -> rrd:add_now(RcvCnt, Old) end),
  
negative.code:     [{total, MemTotal}, {processes, MemProcs}, {system, MemSys},
       {atom, MemAtom}, {binary, MemBin}, {ets, MemEts}] =
          erlang:memory([total, processes, system, atom, binary, ets]),
  
      monitor:monitor_set_value(?MODULE, 'mem_total',
                             fun(Old) -> rrd:add_now(MemTotal, Old) end),
      monitor:monitor_set_value(?MODULE, 'mem_processes',
  