(('url display-string url)
(print #\h display-string "\tURL:" url "\tfake\t80\r"))
((type display-string selector host port)
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(serve-record (list type display-string selector host 70)
(('url display-string url)
(print #\h display-string "\tURL:" url "\tfake\t80\r"))
((type display-string selector host port)
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(serve-record (list type display-string selector host 70)