anchor.diff:  
   init(_Args)->
       {ok,[]}.
  -handle_event(send_message,To,Msg)-> 
  +handle_event({send_message,To,Msg},State)-> 
   
       Member = pg2:get_members(To),
   
  
positive.code: 		  {error,_}-> self()!{error,unavailable}
  	      end
        end,
        To);
  
  handle_event(subscribe,To,Channel)->
      
      Member = pg2:get_members(To),
      case Member of
  	[To|_]->pg2:join(Channel),
  		self()!subscribed;
  	{error,_} ->self()!error
      end;
  
  handle_event(subscribe,To,Channels) when is_list(Channels) ->
  
      Member = pg2:get_members(To),
      case Member of
  
negative.code: 	[Pid|_] -> lager:info("Check ~p",Pid),
  		   Pid!{send,Msg};
  	{error,_}-> self()!{error,unavailable}
      end
  	{ok,State};
  
  handle_event({send_message,To,Msg},State) when is_list(To) ->  
  
      lists:foreach( 
        fun(N)->
  