anchor.diff:  -module(wrinqle_event_handler).
  +
   -export([init/1]).
   -export([handle_event/2]).
   
  +-behaviour(gen_event).
   
   init(_Args)->
       {ok,[]}.
  
positive.code: 		self()!subscribed;
  	{error,_} ->self()!error
      end;
  handle_event(subscribe,To,Channels) when is_list(Channels) ->
  
      Member = pg2:get_members(To),
  
negative.code: 		 self()!subscribed;
  	{error,_}-> self()!error
      end;
  
  handle_event(publish,Channel,Msg)->
  
      Member = pg2:get_members(Channel),
      case Member of 
  	[Channel|_]->Channel!{Channel,Msg};
  	{error,_}-> failed
      end.
  
  
  