M: string >url parse-url { [ first [ [ first ] [ second [ first [ first2 ] [ f f ] if* ] [ second parse-host ] bi ] bi ] [ f f f f f ] if* ] [ second ] [ third ] [ fourth ] } cleave url boa dup host>> [ [ "/" or ] change-path ] when ensure-port ;