(defvar *data*)

(defun open-s(host)
  (let*((addr (send (si:parse-host host) :internet-address))
	(sa (tcp:make-socket-address :port 25
				     :internet-address addr))
	(socket (tcp:open-socket
		  :address sa
		  :keepalive t
		  :listen-p t)))))