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: on({get_cs_nodes, Pid}, ok) ->
      case cs_send:is_valid(Pid) of
          true ->
              Nodes = [cs_send:make_global(Node)
                       || Node <- process_dictionary:find_all_cs_nodes()],
              cs_send:send(Pid, {get_cs_nodes_response, Nodes});
          false ->
              ok
  
negative.code: 
  -behaviour(gen_component).
  
  -export([dump_node_states/0, kill_nodes/1]).
  
  -export([start_link/0, init/1, on/2]).
  
  