anchor.diff:      gen_server:call(Name, stop).
   
   push(Name, RegIds, Message) ->
  -    push(Name, RegIds, Message, 1).
  +    push(Name, RegIds, Message, ?RETRY).
   
  -push(Name, RegIds, Message, Attempt) ->
  -    gen_server:cast(Name, {send, RegIds, Message, Attempt}).
  +push(Name, RegIds, Message, Retry) ->
  +    gen_server:cast(Name, {send, RegIds, Message, Retry}).
   
   sync_push(Name, RegIds, Message) ->
  -    sync_push(Name, RegIds, Message, 1).
  +    sync_push(Name, RegIds, Message, ?RETRY).
   
  -sync_push(Name, RegIds, Message, Attempt) ->
  -    gen_server:call(Name, {send, RegIds, Message, Attempt}).
  +sync_push(Name, RegIds, Message, Retry) ->
  +    gen_server:call(Name, {send, RegIds, Message, Retry}).
   
   %% OTP
   start_link(Name, Key) ->
  
positive.code:     {_MulticastId, _SuccessesNumber, _FailuresNumber, _CanonicalIdsNumber, Results} = GCMResult,
      lists:map(fun({Result, RegId}) -> {RegId, parse(Result)} end, lists:zip(Results, RegIds)).
  
  do_backoff(_, _, _, _, ?MAX_ATTEMPT + 1) ->
      ok;
  
  do_backoff(RetryAfter, RegIds, Message, Key, Attempt) ->
      case RetryAfter of
          no_retry ->
              ok;
  	_ ->
  	    timer:apply_after(RetryAfter * 1000, ?MODULE, do_push, [RegIds, Message, Key, Attempt+1])
      end.
  
  parse(Result) ->
  
negative.code:     {ok, State}.
  
  %% Internal
  do_push(_, _, _, 0) ->
      ok;
  
  do_push(RegIds, Message, Key, Retry) ->
      error_logger:info_msg("Sending message: ~p to reg ids: ~p.~n", [Message, RegIds, Retry]),
      case gcm_api:push(RegIds, Message, Key) of
          {ok, GCMResult} ->
              handle_result(GCMResult, RegIds);
          {error, {retry, RetryAfter}} ->
              do_backoff(RetryAfter, RegIds, Message, Key, Retry),
              {error, retry};
          {error, Reason} ->
              {error, Reason}
  