anchor.diff:      {State, Res}.
   
   do_unlock_user_keys(State, User) ->
  -    [ets:delete(locked_keys, K) || {K, {U, _T}} <- ets:tab2list(locked_keys), 
  +    [ets:delete(locked_keys, K) || {K, {U, _T}} <- ets:tab2list(locked_keys),
   				   U =:= User],
       {State, result}.
   
  
positive.code: -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
           terminate/2, code_change/3]).
  
  -define(SERVER, ?MODULE). 
  
  -record(state, {}).
  
  
negative.code:     case file:open(polish:meta_filename(LCa), [append]) of
          {ok,Fd}  ->
  	    F = fun($", Acc)  -> [$\\,$"|Acc];
  		   (C, Acc)   -> [C|Acc]
  		end,
  	    EscKey = lists:foldr(F, [], Key),
              Str = "{always_translated, \"" ++ EscKey ++ "\"}.\n",
  