let domain_of_net_connection nc = 
        match nc with                         
            | Net_connection (domain, i) -> domain