anchor.diff:  	{From,{next,Variable}} ->
   	    From ! {?MODULE,get_next(Vars,Variable)},
   	    name_server_loop(Monitor,Vars);
  -    {'DOWN', Ref, process, Parent, Reason} ->
  -        exit(Reason);
  -	{From,stop} ->
  -	    From ! {?MODULE,stopped}
  +	{'DOWN', Ref, process, Parent, Reason} ->
  +	    exit(Reason)
       end.
   
   active(V) ->
  
positive.code:     get(?MODULE) ! {self(), Req},
      ok.
  
  clear() ->     stop(), start().
  curr(V) ->     req({current,V}).
  new(V) ->      cast({new,V}).
  
  
negative.code: 
  %%-compile(export_all).
  -export([start/0,
  	 curr/1,
  	 clear/0,
  	 active/1,
  