anchor.diff:  %%     State#cstate{my_state = {Choked, not_intersted}}.
   
   %% Calls
  -start_link(Socket, ConnectionManager, FileSystem, Name) ->
  -    gen_server:start_link(torrent_peer, {Socket, ConnectionManager, FileSystem, Name}, []).
  +start_link(Socket, ConnectionManager, FileSystem, Name,
  +	   PeerId, InfoHash) ->
  +    gen_server:start_link(torrent_peer, {Socket, ConnectionManager, FileSystem, Name,
  +					 PeerId, InfoHash}, []).
   
   get_states(Pid) ->
       gen_server:call(Pid, get_states).
  
positive.code: 		 socket = none,
  		 transmitting = false,
  		 connection_manager_pid = no,
  		 name = no,
  		 send_pid = no,
  		 filesystem_pid = no,
  		 his_requested_queue = no,
  		 my_requested_queue = no}).
  
  init({Socket, ConnectionManagerPid, FileSystemPid, Name}) ->
      {ok, #cstate{socket = Socket,
  		 connection_manager_pid = ConnectionManagerPid,
  		 filesystem_pid = FileSystemPid,
  		 name = Name,
  		 his_requested_queue = queue:new(),
  		 my_requested_queue = queue:new()}}.
  
  
negative.code: -export([init/1, handle_cast/2, handle_info/2, handle_call/3, terminate/2]).
  -export([code_change/3]).
  
  -export([start_link/6, get_states/1, choke/1, unchoke/1, interested/1, not_interested/1]).
  
  -record(cstate, {me_choking = true,
  		 me_interested = false,
  