anchor.diff:  	    Member_Pids = pg2:get_members(Subscriber),
   	    case Member_Pids of
   		[Pid|_]->
  -		    pg2:leave(Single_Subscribe_To,Pid),
   		    pg2:join(Single_Subscribe_To,Pid),
   		    Pid!subscribed;
   		{error,_}-> lager:info("Unavailable")
  
positive.code: 		      Member_pids = pg2:get_members(N),
  		      case Member_pids of
  			  [Pid|_]->
  			      pg2:leave(Multi_Subscribe_To,Pid),
  			      pg2:join(Multi_Subscribe_To,Pid),
  			      Pid! subscribed;
  			  {error,_} -> lager:info("Unavailable")
  
negative.code: handle_event({send_message,Single_Channel,Single_Msg},State)-> 
  
      Member = pg2:get_members(Single_Channel),
      
      
      case Member of
  	[Pid|_] ->erlang:display(Pid), Pid!{send,Single_Msg};
  	{error,_}-> lager:info("unavailable:",Member)
      end,
      {ok,State};
  