let
findnode nid tree =
IdtMap
.find nid tree.treeNodes