Function Url-Port

Part of:

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