: url>string ( url -- str )
    dup url? [ [ protocol>> "://" append ] [ host>> ] [  path>> ] tri 3append ] when ;