tion target-host-proper target-port))
	   (http-i-port (car http-ports))
	   (http-o-port (cdr http-ports))
	   )

      (for-each
       (lambda (str) (display str http-o-port))
       `(,req-method &quot; &quot;
		  ; if the proxy is set, request the full REQ-URL; otherwise,
		  ; send only the relative URL
	 ,@(if http-proxy (list req-url) (list &quot;/&quot; resource))
	 &quot; HTTP/1.0&quot; ,CRLF
	 &quot;Host: &quot; ,host ,CRLF
	 &quot;User-agent: &quot; ,user-agent ,CRLF
	 &quot;Connection: close&qu