anchor.diff:  handle_message(keep_alive, S) ->
       {ok, S};
   handle_message(choke, S) ->
  +    error_logger:info_msg("Choked!"),
       torrent_peer_master:peer_choked(S#state.master_pid),
       NS = unqueue_all_pieces(S),
       {ok, NS#state { remote_choked = true }};
   handle_message(unchoke, S) ->
  +    error_logger:info_msg("Unchoked!"),
       torrent_peer_master:peer_unchoked(S#state.master_pid),
       try_to_queue_up_pieces(S#state{remote_choked = false});
   handle_message(interested, S) ->
  
positive.code:     end;
  handle_message({piece, Index, Offset, Data}, S) ->
      Len = size(Data),
      torrent_state:downloaded_data(S#state.state_pid, Len),
      torrent_peer_master:downloaded_data(S#state.master_pid, Len),
      case handle_got_chunk(Index, Offset, Data, Len, S) of
  
negative.code: 	    {ok, S#state{piece_set = PieceSet}}
      end;
  handle_message({bitfield, BitField}, S) ->
      error_logger:info_msg("Got Bitfield~n"),
      case sets:size(S#state.piece_set) of
  	0 ->
  	    Size = torrent_state:num_pieces(S#state.state_pid),
  