open Tree

let read_packet s = 
	let c = open_in s in
	let s = String.create 65535 in
	let len = input c s 0 65535 in
	let s = String.sub s 24 (len - 24) in
	Tree.from_string s (Unix.inet_addr_of_string "172.31.255.1") 100

let _ =
	let tree1 = (Tree.make (Unix.inet_addr_of_string "172.16.0.14") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.213") 11 [(Tree.make (Unix.inet_addr_of_string "172.16.0.133") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.38") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.153") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.233") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.189") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.157") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.142.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.144.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.18.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.154") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.8.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.114") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.157") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.234") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.32.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.32.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.6") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.225") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.9") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.1.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.217") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.226") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.168.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.225") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.230") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.229") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.64.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.113") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.161") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.106") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.184.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.162") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.153.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.5.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.5.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.24.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.253") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.174") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.173") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.21.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.254") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.24.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.249") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.81") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.139.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.34") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.8.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.37") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.78") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.38") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.37") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.4") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.254.4") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.53") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.137.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.136.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.8.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.129") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.48.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.48.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.229") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.230") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.69") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.70") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.241") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.242") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.126") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.130") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.190") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.189") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.42") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.246") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.136.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.144.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.152.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.152.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.52.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.121") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.56.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.25") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.56.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.26") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.129") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.85") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.86") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.142") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.185") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.141") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.60.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.60.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.64.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.89") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.64.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.186") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.182") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.197") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.206") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.205") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.194") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.40.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.40.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.42.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.42.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.61") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.80.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.202") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.84.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.214") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.41.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.41.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.84.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.213") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.193") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.74.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.74.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.70.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.53") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.34.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.241") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.30.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.30.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.242") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.34.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.70.65") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.125") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.49.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.245") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.5") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.49.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.10") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.193") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.209") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.168.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.61") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.198") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.197") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.50") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.210") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.49") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.74") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.161") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.162") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.166") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.129.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.81") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.165") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.50") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.42") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.81") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.21.160.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.160.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.182.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.182.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.61") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.0.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.49") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.178") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.129") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.121") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.62") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.18.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.52.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.130") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.249") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.77") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.153") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.34") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.192.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.174") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.222") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.195.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.144.66") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.221") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.192.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.173") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.35") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.193.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.193.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.36") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.104") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.194.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.194.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.21") 0 [])])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.141") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.137") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.150") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.117") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.94") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.165") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.170") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.135.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.8.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.217") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.89") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.0.65") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.253") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.14") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.169") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.18") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.34") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.77") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.69") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.174.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.174.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.126") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.125") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.253.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.177") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.82") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.94") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.93") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.98") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.186") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.58") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.0.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.23.13.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.178") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.160.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.160.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.185") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.253.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.89") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.25.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.25.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.117") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.102") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.23.12.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.14") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.144.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.90") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.57") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.85") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.253.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.1") 0 [])])])]); (Tree.make (Unix.inet_addr_of_string "172.20.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.21") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.169") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.145") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.149") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.134") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.13") 11 [(Tree.make (Unix.inet_addr_of_string "172.17.145.2") 100 [(Tree.make (Unix.inet_addr_of_string "172.16.3.5") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.97") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.98") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.18") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.152.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.221") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.3.6") 2 [(Tree.make (Unix.inet_addr_of_string "172.24.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.149") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.133") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.205") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.1") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.175.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.175.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.117") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.145.1") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.174.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.170") 2 [(Tree.make (Unix.inet_addr_of_string "172.17.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.154") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.22") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.138") 0 [(Tree.make (Unix.inet_addr_of_string "172.20.128.97") 0 [])])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.14") 2 [(Tree.make (Unix.inet_addr_of_string "172.17.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.214") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.16.65") 10000 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.214") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.16.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.14") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.16.1") 10000 [])]) in
	let tree2 = (Tree.make (Unix.inet_addr_of_string "172.16.0.170") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.169") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.145") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.145.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.174.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.117") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.145.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.175.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.205") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.5") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.6") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.133") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.149") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.0.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.175.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.98") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.18") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.221") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.17") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.14") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.214") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.22") 0 [(Tree.make (Unix.inet_addr_of_string "172.20.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.149") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.137") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.138") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.133") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.249") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.37") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.77") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.5.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.8.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.139.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.34") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.53") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.137.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.226") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.168.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.225") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.230") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.64.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.229") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.162") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.153.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.152.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.114") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.157") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.234") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.6") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.32.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.32.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.154") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.38") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.8.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.30") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.1.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.225") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.233") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.9") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.153") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.29") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.106") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.184.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.161") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.113") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.217") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.78") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.37") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.38") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.36") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.194.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.104") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.194.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.34") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.192.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.174") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.221") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.192.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.173") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.222") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.144.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.195.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.153") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.193.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.193.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.35") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.5.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.254") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.253") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.173") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.174") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.17.24.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.24.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.249") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.8.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.197") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.49") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.61") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.121") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.160.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.160.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.49") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.50") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.42") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.0.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.50") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.62") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.74") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.166") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.129.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.161") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.165") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.162") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.182.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.182.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.54") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.178") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.129") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.129") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.61") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.229") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.241") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.193") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.48.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.48.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.49.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.49.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.5") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.245") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.10") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.230") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.69") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.70") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.242") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.126") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.121") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.52.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.56.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.56.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.25") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.45") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.130") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.189") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.42") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.246") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.25.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.190") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.152.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.86") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.89") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.185") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.64.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.142") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.64.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.141") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.60.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.60.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.186") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.182") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.206") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.197") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.74.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.74.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.205") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.202") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.213") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.84.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.84.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.214") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.41.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.41.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.194") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.61") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.40.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.40.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.42.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.42.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.25.80.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.193") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.53") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.242") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.34.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.34.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.241") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.30.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.30.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.70.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.70.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.24.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.125") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.85") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.209") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.168.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.65") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.18.52.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.130") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.198") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.4") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.254.4") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.20.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.213") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.134") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.141") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.150") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.117") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.94") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.253") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.165") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.169") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.18") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.14") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.152.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.77") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.157") 0 [(Tree.make (Unix.inet_addr_of_string "172.20.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.189") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.142.129") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.20.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.34") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.170") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.8.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.0.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.217") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.135.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.89") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.14") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.69") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.125") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.98") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.185") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.85") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.177") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.13.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.253.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.186") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.58") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.82") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.93") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.94") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.178") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.160.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.160.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.253.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.210") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.144.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.89") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.117") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.102") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.25.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.25.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.23.12.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.90") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.253.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.8.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.65") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.19.174.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.174.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.126") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.17.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.170") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.154") 0 [])]) in
	let tree3 = (Tree.make (Unix.inet_addr_of_string "172.17.145.2") 100 [(Tree.make (Unix.inet_addr_of_string "172.17.145.1") 100 [(Tree.make (Unix.inet_addr_of_string "172.16.0.169") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.14") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.213") 11 [(Tree.make (Unix.inet_addr_of_string "172.16.0.141") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.134") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.137") 0 [(Tree.make (Unix.inet_addr_of_string "172.20.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.150") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.174.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.125") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.253.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.85") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.13.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.98") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.178") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.160.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.160.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.253.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.8.129") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.177") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.126") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.174.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.117") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.169") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.69") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.18") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.77") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.136.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.20.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.34") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.94") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.165") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.253") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.13") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.170") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.89") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.8.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.19.135.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.217") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.0.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.14") 0 [])])])])]); (Tree.make (Unix.inet_addr_of_string "172.17.16.1") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.16.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.214") 10000 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.170") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.22") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.138") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.133") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.77") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.139.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.249") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.5.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.38") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.154") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.153") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.20.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.174") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.157") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.189") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.20.142.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.173") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.233") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.234") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.32.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.6") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.32.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.161") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.9") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.225") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.1.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.29") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.37") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.34") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.35") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.193.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.118") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.153") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.191.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.36") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.104") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.194.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.194.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.34") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.109") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.222") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.195.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.144.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.26") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.221") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.174") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.192.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.192.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.173") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.193.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.114") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.158") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.157") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.16.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.218") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.225") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.229") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.64.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.230") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.168.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.226") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.217") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.162") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.153.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.106") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.184.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.184.129") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.161") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.113") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.41") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.33") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.137.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.53") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.143.4") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.254.4") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.3") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.8.29") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.8.30") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.198") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.129") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.193") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.48.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.18.49.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.49.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.10") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.5") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.245") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.66") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.48.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.242") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.85") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.125") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.126") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.130") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.152.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.152.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.189") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.42") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.246") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.136.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.144.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.190") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.52.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.56.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.26") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.56.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.25") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.121") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.86") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.89") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.186") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.181") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.70.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.53") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.242") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.34.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.34.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.241") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.30.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.30.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.182") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.206") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.197") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.205") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.80.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.201") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.194") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.42.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.42.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.40.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.40.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.61") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.202") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.214") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.41.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.41.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.84.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.213") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.84.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.193") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.74.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.74.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.25.70.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.142") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.64.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.64.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.185") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.141") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.60.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.60.65") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.24.16.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.241") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.229") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.62") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.168.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.168.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.209") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.230") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.69") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.70") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.0.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.61") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.197") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.45") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.49") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.160.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.50") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.50") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.8.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.42") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.8.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.74") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.128.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.162") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.166") 0 [(Tree.make (Unix.inet_addr_of_string "172.27.129.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.27.129.81") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.27.128.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.165") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.2.101") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.122") 0 [(Tree.make (Unix.inet_addr_of_string "172.25.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.25.0.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.121") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.237") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.46") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.54") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.182.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.182.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.21.160.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.73") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.61") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.62") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.130") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.52.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.18.52.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.143.2") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.78") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.38") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.40.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.37") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.41") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.5.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.24.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.250") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.2") 0 [(Tree.make (Unix.inet_addr_of_string "172.21.16.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.97") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.16.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.254") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.253") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.81") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.249") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.24.1") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.20.128.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.21") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.149") 0 []); (Tree.make (Unix.inet_addr_of_string "172.20.0.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.17.8.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.8.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.154") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.13") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.145") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.117") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.174.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.145.2") 100 [(Tree.make (Unix.inet_addr_of_string "172.16.0.98") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.17") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.18") 0 [(Tree.make (Unix.inet_addr_of_string "172.19.152.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.152.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.19.136.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.221") 0 []); (Tree.make (Unix.inet_addr_of_string "172.19.136.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.66") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.0.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.58") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.186") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.185") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.82") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.16.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.94") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.16.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.93") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.253.1") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.0.89") 0 [(Tree.make (Unix.inet_addr_of_string "172.23.25.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.117") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.102") 0 []); (Tree.make (Unix.inet_addr_of_string "172.23.25.65") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.23.12.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.14") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.58") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.1.49") 0 [(Tree.make (Unix.inet_addr_of_string "172.16.2.102") 0 [(Tree.make (Unix.inet_addr_of_string "172.17.161.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.2.105") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.129") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.178") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.161.97") 0 [])])]); (Tree.make (Unix.inet_addr_of_string "172.21.144.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.21.144.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.210") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.1.57") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.90") 0 [])])])])]); (Tree.make (Unix.inet_addr_of_string "172.17.175.1") 0 []); (Tree.make (Unix.inet_addr_of_string "172.17.175.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.1") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.97") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.6") 2 [(Tree.make (Unix.inet_addr_of_string "172.16.0.149") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.0.65") 0 []); (Tree.make (Unix.inet_addr_of_string "172.16.1.133") 0 []); (Tree.make (Unix.inet_addr_of_string "172.24.0.1") 0 [])]); (Tree.make (Unix.inet_addr_of_string "172.16.3.5") 10000 [(Tree.make (Unix.inet_addr_of_string "172.16.0.205") 0 [])])])]); (Tree.make (Unix.inet_addr_of_string "172.16.0.205") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.175.65") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.17.145.2") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.5") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.3.1") 10000 []); (Tree.make (Unix.inet_addr_of_string "172.16.0.97") 10000 [])]) in
	let trees = [tree1; tree2; tree3] in
	let propagate a n =
		let result = min a (Tree.bandwidth n) in
(*
		print_string ("propagate " ^ string_of_int a ^ " " ^
				string_of_int (Tree.bandwidth n));
		print_newline ();
*)
		result in
	let priority payload depth =
		(* payload is an integer with the minimum Mbps on the path to
		   the node we're asked to give a priority for *)
		let f = if payload > 22 then 54.0 else 11.0 in
		f /. (float_of_int (depth + 1)) in 
	let init_payload n =
		let result = (Tree.bandwidth n) in
(*
		print_string ("bw " ^ Unix.string_of_inet_addr (Tree.addr n) ^ " = " ^
				string_of_int (Tree.bandwidth n));
		print_newline ();
*)
		result in
	let nodes, routes = Tree.merge trees [] propagate priority init_payload in
	print_string (Tree.show nodes);
	print_newline ()