anchor.diff:  pack_message(Message) -> <<>>.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  --spec unpack(message_type(), binary()) ->{ok, message(), binary()}
  -                                         | {error, any()}.
  --spec unpack(binary(), messages()) -> {ok, messages()}.
  -%% if the binary is empty, all messages were parsed successfully
  +% -spec unpack(message_type(), binary()) ->{ok, message(), binary()}
  +%                                          | {error, any()}.
  +% -spec unpack(binary(), messages()) -> {ok, messages()}.
  +% %% if the binary is empty, all messages were parsed successfully
   unpack( <<>>, Parsed_Messages) ->
       {ok, lists:reverse(Parsed_Messages)};
   %% otherwise try to unpack another valid message, peeling off and parsing
  
positive.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec get_message_type(binary()) -> message_type().
  get_message_type(Maybe_Message_Type)
    when is_integer(Maybe_Message_Type),
         Maybe_Message_Type < ?PPSPP_MAXIMUM_MESSAGE_TYPE ->
  
negative.code: | choke
  | unchoke
  | pex_resv6
  | pex_rescert
  | 00..16#ffffff.
  
  -export_type([messages/0,
                message/0,
  