anchor.diff:  
   -define(TTS_SESSIONS,tts_sessions).
   -define(TTS_OIDCP,tts_oidcp).
  +-define(TTS_USER,tts_user).
   
   -define(TTS_TABLES,[
                       ?TTS_SESSIONS,
  -                    ?TTS_OIDCP
  +                    ?TTS_OIDCP,
  +                    ?TTS_USER
                      ]).
   
   init() ->
  
positive.code: 
  -spec sessions_get_pid(ID :: binary()) -> {ok, Pid :: pid()} | {error, Reason :: atom()}.
  sessions_get_pid(ID) ->
      validate_session_pid(lookup(?TTS_SESSIONS, ID)).
  
  -spec sessions_update_pid(ID :: binary(), Pid :: pid()) -> ok.
  sessions_update_pid(ID,Pid) ->
  
negative.code: -spec sessions_inspect() -> ok. 
  sessions_inspect() ->
      iterate_through_table_and_print(?TTS_SESSIONS).
  
  % functions for user management 
  
  -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()}.
  user_get_pid(Id) ->
      validate_pid_value(lookup(?TTS_USER,Id)).
  
  -spec user_delete(ID :: binary()) -> true.
  user_delete(Id) ->
      delete(?TTS_USER,Id).
  
  -spec user_inspect() -> ok. 
  user_inspect() ->
      iterate_through_table_and_print(?TTS_USER).
  
  
  
  % functions for oidc management
  -spec oidc_add_op(Identifier::binary(), Description::binary(), ClientId ::
  