anchor.diff:  %%--------------------------------------------------------------------
   %%% Internal functions
   %%--------------------------------------------------------------------
  +
  +
  +lowest_list_protocol_version(Ver, []) ->
  +    Ver;
  +lowest_list_protocol_version(Ver1,  [Ver2 | Rest]) ->
  +    lowest_list_protocol_version(lowest_protocol_version(Ver1, Ver2), Rest).
  +
  +highest_list_protocol_version(Ver, []) ->
  +    Ver;
  +highest_list_protocol_version(Ver1,  [Ver2 | Rest]) ->
  +    highest_list_protocol_version(highest_protocol_version(Ver1, Ver2), Rest).
  +
   encode_tls_cipher_text(Type, {MajVer, MinVer}, Epoch, Seq, Fragment) ->
       Length = erlang:iolist_size(Fragment),
       [<<?BYTE(Type), ?BYTE(MajVer), ?BYTE(MinVer), ?UINT16(Epoch),
  
positive.code:     mac_hash(Version, MacAlg, MacSecret, NewSeq, Type,
  	     Length, Fragment).
  
  mac_hash(Version, MacAlg, MacSecret, SeqNo, Type, Length, Fragment) ->
      dtls_v1:mac_hash(Version, MacAlg, MacSecret, SeqNo, Type,
  		     Length, Fragment).
  
negative.code: calc_aad(Type, {MajVer, MinVer}, Epoch, SeqNo) ->
      NewSeq = (Epoch bsl 48) + SeqNo,
      <<NewSeq:64/integer, ?BYTE(Type), ?BYTE(MajVer), ?BYTE(MinVer)>>.
  