anchor.diff:  %%----------------------------------------------------------------------
   %%  internal functions
   %%----------------------------------------------------------------------
  -client_hello(Socket, Address, Port, RadId, EapId, Secret, NasId,
  +client_hello(Socket, Address, Port, ReqAuth, RadId, EapId, Secret, NasId,
   			MAC, AnonymousName, Data) ->
   	TtlsData = iolist_to_binary(Data),
   	Ttls = ocs_eap_codec:eap_ttls(#eap_ttls{version = 1,data = TtlsData}),
  
positive.code: 	NasId = atom_to_list(node()),
  	AnonymousName = "DonaldTrump",
  	MAC = "dd:ee:ff:aa:bb:cc",
  	RadId = 10, EapId = 3,
  	send1(Socket, Address, Port, RadId, EapId, Secret, NasId,
  			MAC, AnonymousName, Data).
  %% @hidden
  send1(Socket, Address, Port, RadId, EapId,
  			Secret, NasId, MAC, UserName,
  			[<<?Handshake, _:32>>, [[?ClientHello | _] | _]] = Data) ->
  	client_hello(Socket, Address, Port, RadId, EapId, Secret, NasId,
  			MAC, UserName, Data).
  
  -spec controlling_process(ClientPid, Pid) ->
  	ok | {error, Reason} when
  
negative.code: 	radius_attributes:add(?EAPMessage, Chunk,
  			RadiusAttributes).
  
  access_request(Socket, Address, Port, NasId,
  		UserName, Secret, MAC, ReqAuth,  RadId, RadiusAttributes) ->
  	A1 = radius_attributes:add(?FramedMtu, 65536, RadiusAttributes),
  	A2 = radius_attributes:add(?UserName, UserName, A1),
  	A3 = radius_attributes:add(?NasPort, 0, A2),
  