anchor.diff:  
   %% @doc Initialize the client process by saving the socket to the process dictionary.
   
  -process_init(CSocket) ->
  +process_init(CSocket, SPid) ->
  +	link(SPid),
   	put(socket, CSocket),
   	send_0202(),
   	process().
  
positive.code: 
  supervisor() ->
  	receive
  		{link, Pid} ->
  			link(Pid);
  		{'EXIT', Pid, _} ->
  			supervisor_close(Pid);
  		_ ->
  
negative.code: 	case ssl:transport_accept(LSocket, 5000) of
  		{ok, CSocket} ->
  			ssl:ssl_accept(CSocket),
  			Pid = spawn(?MODULE, process_init, [CSocket, SPid]),
  			ssl:controlling_process(CSocket, Pid);
  		_ ->
  			reload
  	end,
  