let level_of_url u = 
        match u with 
        | Blank_url -> L            
        | Http_url (domain, ru) -> M(domain)