anchor.diff:  delete(Table, Key) ->
       true = ets:delete(Table,Key).
   
  -delete_kv_vk(Table, Key) ->
  -    case ets:lookup(Table,Key) of
  -        [{Key,Value}] ->
  -            delete(Table, Key),
  -            delete(Table, Value);
  -        [] ->
  -            {error, not_found};
  -        _ ->
  -            {error, to_many}
  -    end.
  -
   
   
   insert(Table, Entry) ->
  
positive.code:          user_create_new/2,
           user_get_pid/1,
           user_delete/1,
           user_delete_pid/1,
           user_inspect/0
          ]).
  
  
negative.code: 
  -spec user_create_new(ID :: binary(), Pid::pid()) -> ok | {error, Reason :: atom()}.
  user_create_new(Id,Pid) ->
      return_ok_or_error(insert_new(?TTS_USER,{Id,Pid})).
  
  
  -spec user_get_pid(ID :: binary()) -> {ok, Pid :: pid()} | {error, Reason :: atom()}.
  