anchor.diff:  handle_info(_OtherMsg, Ts) ->                     % Other Msg's
       {noreply, Ts, next_timeout()}.
   
  +-spec handle_cast(term(), timers()) -> {'noreply', timers(), timeout()}.
   handle_cast(_Req, Ts) ->                          % Not predicted but handled
       {noreply, Ts, next_timeout()}.
   
  --spec terminate(_, _) -> 'ok'.
  +-spec terminate(term(), _State) -> 'ok'.
   terminate(_Reason, _State) ->
       ok.
   
  +-spec code_change(term(), State, term()) -> {'ok', State}.
   code_change(_OldVsn, State, _Extra) ->
       %% According to the man for gen server no timer can be set here.
       {ok, State}.				
   
   %% 
  -%% timer_timeout(Timers, SysTime)
  +%% timer_timeout(SysTime)
   %%
   %% Apply and remove already timed-out timers. A timer is a tuple
   %% {Time, BRef, Op, MFA}, where Time is in microseconds.
  
positive.code: start() ->
      ensure_started().
  
  -spec start_link() -> {'ok', pid()} | {'error', _}.
  start_link() ->
      gen_server:start_link({local, timer_server}, ?MODULE, [], []).    
  
  
negative.code: 	    Interval = Time*1000,
  	    BRef2 = {Started + Interval, Ref},
  	    Timer = {BRef2, {repeat, Interval, Pid}, MFA},
  	    ets:insert(?INTERVAL_TAB, {BRef1,BRef2,Pid}),
  	    ets:insert(?TIMER_TAB, Timer),
  	    Timeout = timer_timeout(SysTime),
  	    {reply, {ok, BRef1}, [], Timeout};
  