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