let externalPath bt =
	let rec externalPath_2 (bt, acc) =
		match bt with
		| Empty -> acc
		| Node(v, l, r) -> externalPath_2 (l, acc + 1) + externalPath_2(r, acc + 1)
	in externalPath_2 (bt, 0)