anchor.diff:  
   on(_, _State) ->
       unknown_event.
  +
  +get_live_cs_nodes() ->
  +    [cs_send:make_global(Pid) || Pid <- process_dictionary:find_all_cs_nodes(), element(1, gen_component:get_state(Pid)) == state].
  
positive.code: 
  -behaviour(gen_component).
  
  -export([dump_node_states/0]).
  
  -export([start_link/0, init/1, on/2]).
  
  
negative.code: % @doc ask all local nodes for their state
  dump_node_states() ->
      [gen_component:get_state(Pid)
       || Pid <- process_dictionary:find_all_cs_nodes()].
  
  kill_nodes(No) ->
      Childs = lists:sublist([X || X <- supervisor:which_children(main_sup),
                                   is_list(element(1, X))], No),
      [supervisor:terminate_child(main_sup, element(1, Child)) || Child <- Childs],
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % Server process
  