let
add_format t =
List
.map (
fun
s
->
(
Url
.scheme_to_string t)^
"://"
^s)