(match record
(('shell command) (serve-shell-command command))
(('eval expression) (serve-expression expression))
+ (('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)