anchor.diff:  	    already_started
       end.
   
  -stop() ->
  -    req(stop),
  -    erase(?MODULE).
  -
   name_server_loop({Ref, Parent} = Monitor,Vars) ->
   %%    io:format("name -- ~w~n",[Vars]),
       receive
  +	{_From,clear} ->
  +	    name_server_loop(Monitor, []);
   	{From,{current,Variable}} ->
   	    From ! {?MODULE,get_curr(Vars,Variable)},
   	    name_server_loop(Monitor,Vars);
  
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,
  