((# make)(# server)(# port)
(
 (*make?[](# address)(# request)
	(
          (*address?[]server![address,request]) 
	|
	  address![]
	| 
	  make![]
	))

 | 
  (*server?[email,data]
	(port?[](# deal)(
		  deal![data]
		|
		  deal?[rep]
			(email![rep] | port![])
		)
	+ 
	  email![]
	))
| port![] 
| port![] 
| port![] 
| make![]))