let string_of_url url = match url with | Blank_url -> "blank" | Http_url (domain, ru) -> (string_of_domain domain)