anchor.diff:  -module(peer_communication).
   
   %% API
  --export([recv_handshake/3, send_handshake/3]).
  +-export([recv_handshake/3, initiate_handshake/3]).
   -export([send_message/2, recv_message/1,
   	 construct_bitfield/2, destruct_bitfield/2]).
   
  +-define(DEFAULT_HANDSHAKE_TIMEOUT, 120000).
   -define(PROTOCOL_STRING, "BitTorrent protocol").
   -define(RESERVED_BYTES, <<0:64>>).
   
  
positive.code: 	      end, 0, Set).
  
  decode_byte(B, Add) ->
      <<b1:1, b2:1, b3:1, b4:1, b5:1, b6:1, b7:1, b8:1>> = B,
      Select = lists:filter(fun(X) ->
  				  case X of
  				      {1, _} ->
  
negative.code: 				      _ ->
  					  false
  				  end
  			  end, [{B1, 1}, {B2, 2}, {B3, 3}, {B4, 4},
  				{B5, 5}, {B6, 6}, {B7, 7}, {B8, 8}]),
      Res = lists:map(fun({_, N}) ->
  		      N + Add
  	      end, Select),
  