let build_new_domains body =         
        match body with 
        | Empty_file -> []
        | Script_file expr -> []
        | Html_file doclist -> add_domains doclist []