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
	close_in c;
	let s = String.sub s 24 (len - 24) in
	Tree.from_string s (Unix.inet_addr_of_string "127.0.0.1")

let _ =
	let tenmb = 10 * 1024 * 1024 in
	ignore(LowLevel.set_limits tenmb tenmb);
	let t = Tree.make (Unix.inet_addr_of_string "172.16.6.113") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.4.148") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.20.145.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.20.145.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.145") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.17.116") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.20.144.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.233") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.132") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.185") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.0.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.9") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.60") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.236") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.0.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.228") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.225") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.164") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.148") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.53.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.146") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.121") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.55.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.97") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.54.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.17.217") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.169") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.172") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.220") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.43.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.145") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.148") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.121") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.138") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.17.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.20") 24 false false [Tree.make (Unix.inet_addr_of_string "172.19.137.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.136.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.97") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.44.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.17.185") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.2.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.17") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.113") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.188") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.0.2") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.7.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.0.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.16.116") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.16.121") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.49") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.52") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.21.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.16.105") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.133.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.69") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.108") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.2.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.124") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.132") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.140") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.144.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.65") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.161") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.160.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.4.233") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.180") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.177") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.172") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.5.169") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.18.49.72") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.18.49.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.18.49.71") 24 true false [Tree.make (Unix.inet_addr_of_string "172.18.48.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.41") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.44") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.2.57") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.201") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.168.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.168.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.193") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.4.57") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.5.57") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.89") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.12") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.116") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.5.113") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.169") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.25.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.196") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.140.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.209") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.201") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.204") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.212") 24 false false [Tree.make (Unix.inet_addr_of_string "172.18.128.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.17.29.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.132") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.177") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.144.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.209") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.177") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.76") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.176.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.4") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.220") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.132.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.217") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.58") 24 true false []]; Tree.make (Unix.inet_addr_of_string "172.17.30.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.172") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.0.21") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.0.34") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.137.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.139.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.249") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.252") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.244") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.241") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.17.136.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.0.33") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.81") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.141.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.193") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.180") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.188") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.57") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.61") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.82.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.129") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.87.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.3.62") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.88.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.7.188") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.7.193") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.113.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.112.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.7.65") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.7.185") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.7.60") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.185") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.73") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.89") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.73") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.249") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.204") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.252") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.5.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.186") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.196") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.185") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.17.225") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.44") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.86.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.7.41") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.228") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.132") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.152.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.161") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.3.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.4.76") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.153") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.45.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.176.66") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.156") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.131.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.57") 24 true false []; Tree.make (Unix.inet_addr_of_string "172.16.4.89") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.92") 24 false false [Tree.make (Unix.inet_addr_of_string "172.19.174.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.46.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.47.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.17.175.71") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.16.44") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.16.49") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.48.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.0.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.52") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.42.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.24.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.17.174.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.41") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.60") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.29") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.21.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.1.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.16.57") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.0.17") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.26.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.4.201") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.252") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.19.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.15.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.180") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.17.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.193") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.175.73") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.68") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.175.72") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.4.140") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.161") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.64.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.164") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.20") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.20.128.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.4.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.4.124") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.28") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.65.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.21") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.16.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.85") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.16.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.4.121") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.33") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.9") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.100") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.137.66") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.3.193") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.137.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.4.36") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.117.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.251") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.22.0.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.155") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.12") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.81") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.84") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.3.2") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.99.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.98.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.97.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.3.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.3.204") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.3.201") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.100.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.220") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.217") 24 true false [Tree.make (Unix.inet_addr_of_string "172.19.128.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.35.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.128.67") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.6.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.19.135.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.233") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.236") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.76") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.81.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.89") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.233") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.244") 24 true false [Tree.make (Unix.inet_addr_of_string "172.25.90.68") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.16.233") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.74.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.241") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.140") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.77.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.148") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.79.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.209") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.16.236") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.16.145") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.6.153") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.16.76") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.2.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.225") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.11.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.156") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.7.145") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.7.105") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.96.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.7.148") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.94.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.16.73") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.14.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.17.10.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.16.33") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.16.100") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.16.36") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.12.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.0.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.0.193") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.25.90.65") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.25.90.67") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.0.36") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.75.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.16.89") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.92.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.0.33") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.9.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.27.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.241") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.4.45") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.244") 24 false false [Tree.make (Unix.inet_addr_of_string "172.23.24.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.17.73") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.241") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.97") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.100") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.19.128.68") 24 true false []; Tree.make (Unix.inet_addr_of_string "172.19.128.66") 24 true false [Tree.make (Unix.inet_addr_of_string "172.22.8.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.0.165") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.17.103.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.228") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.20.8.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.3.153") 24 false false [Tree.make (Unix.inet_addr_of_string "172.24.0.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.24.0.65") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.93.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.176.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.92") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.169.66") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.169.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.3.90") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.5.41") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.44") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.61.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.105") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.67.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.225") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.4") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.50.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.100") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.95.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.17.52.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.51.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.97") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.66.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.177") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.172") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.68.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.228") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.105") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.228") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.105.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.129") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.106.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.4") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.49.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.169") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.58.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.18.28") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.161") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.249") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.7.225") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.249") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.233") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.217") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.118.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.4.217") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.62.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.63.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.220") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.108") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.7.209") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.78.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.252") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.217") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.115.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.116.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.60.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.105") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.59.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.108") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.21.1.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.49") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.2") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.36") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.33") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.244") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.76") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.84") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.7.212") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.114.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.201") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.22.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.5.81") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.27.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.5.73") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.5.153") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.12") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.5.212") 24 false false [Tree.make (Unix.inet_addr_of_string "172.25.64.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.25.64.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.252") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.57") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.18.44") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.73") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.25.52.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.18.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.25.56.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.76") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.28.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.33.1") 24 false true []]]; Tree.make (Unix.inet_addr_of_string "172.16.5.209") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.145") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.1.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.148") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.101") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.177") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.32.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.33") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.31.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.196") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.98") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.193") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.137") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.76.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.80.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.49") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.225") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.185") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.140") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.7.73") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.89.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.91.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.90.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.116") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.113") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.6.145") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.253.2") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.3.108") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.6.25") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.16.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.16.65") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.81") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.36") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.0.81") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.3.113") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.105") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.97") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.252") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.18.9") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.244") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.27.16.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.7.241") 24 true false [Tree.make (Unix.inet_addr_of_string "172.16.3.93") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.17.119.1") 24 false true []; Tree.make (Unix.inet_addr_of_string "172.16.3.94") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.9.20") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.121.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.122.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.120.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.9.9") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.9.1") 24 false true []]; Tree.make (Unix.inet_addr_of_string "172.16.18.17") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.23.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.17") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.33") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.13.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.116") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.249") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.6.244") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.70.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.25.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.41.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.253.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.148") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.18.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.18.4") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.27.0.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.68") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.69.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.89") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.12.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.241") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.6.9") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.17.92") 24 false false [Tree.make (Unix.inet_addr_of_string "172.23.26.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.23.26.65") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.16.7.81") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.7.52") 24 true false [Tree.make (Unix.inet_addr_of_string "172.17.109.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.111.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.110.1") 24 false false []]]; Tree.make (Unix.inet_addr_of_string "172.24.16.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.18.41") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.18.32.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.241") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.3.9") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.16.5.17") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.5.52") 24 false false [Tree.make (Unix.inet_addr_of_string "172.16.4.52") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.4.49") 24 false false [Tree.make (Unix.inet_addr_of_string "172.27.129.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.169") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.27.129.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.16.16.172") 24 false false [Tree.make (Unix.inet_addr_of_string "172.17.13.65") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.20.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.13.1") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.27.129.129") 24 false false []]; Tree.make (Unix.inet_addr_of_string "172.17.57.1") 24 false false []; Tree.make (Unix.inet_addr_of_string "172.17.56.1") 24 false false []]]]; Tree.make (Unix.inet_addr_of_string "172.16.17.129") 24 false false []]] in
	print_string (Tree.show [t]);
	print_newline ();
	let s = Tree.to_string [t] in
	let t' = Tree.from_string s (Unix.inet_addr_of_string "127.0.0.1") in
	print_string (Tree.show (Tree.nodes t'));
	print_newline ();