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