anchor.diff:  	when
   		Table :: atom(),
   		Items :: [{Number, Value}],
  -		Number :: string() | integer(),
  +		Number :: string(),
   		Value :: term().
   %% @doc Insert a list of table entries.
   %% 	The entries are inserted as a transaction, either all entries
  
positive.code: -spec lookup_all(Table, Number) -> Value
  	when
  		Table :: atom(),
  		Number :: list() | integer(),
  		Value :: term().
  %% @doc Lookup the values of matching table entries.
  %% 
  lookup_all(Table, Number) when is_integer(Number) ->
  	lookup_all(Table, integer_to_list(Number));
  lookup_all(Table, [Digit | Rest]) when is_atom(Table) ->
  	Fun1 = fun(F, [H|T], [#gtt{num = Prefix, value = undefined}], Acc) ->
  				F(F, T, mnesia:read(Table, Prefix ++ [H], read), Acc);
  
negative.code: -spec delete(Table, Number) -> ok
  	when
  		Table :: atom(),
  		Number :: string().
  %% @doc Delete a table entry.
  %% 
  delete(Table, Number) when is_atom(Table), is_list(Number) ->
  	Fun = fun() -> mnesia:delete(Table, Number, write) end,
  	case mnesia:transaction(Fun) of
  