Function Url-Host

Part of:

package trivial-http
( url-host < url > )