anchor.diff:      get(?MODULE) ! {self(), Req},
       ok.
   
  -clear() ->     stop(), start().
  +clear() ->     cast(clear).
   curr(V) ->     req({current,V}).
   new(V) ->      cast({new,V}).
   
  
positive.code: 	    already_started
      end.
  
  stop() ->
      req(stop),
      erase(?MODULE).
  
  name_server_loop({Ref, Parent} = Monitor,Vars) ->
  %%    io:format("name -- ~w~n",[Vars]),
      receive
  	{From,{current,Variable}} ->
  	    From ! {?MODULE,get_curr(Vars,Variable)},
  	    name_server_loop(Monitor,Vars);
  
negative.code: 
  %%-compile(export_all).
  -export([start/0,
  	 curr/1,
  	 clear/0,
  	 active/1,
  