+ let () =
+ let rec loop node = if node == Runtime.Tree.nil then () else
+ let i = Runtime.Tree.preorder doc node in
+ let () = loop (Runtime.Tree.first_child doc node) in
+ loop (Runtime.Tree.next_sibling doc node)
+ in
+ time loop (Runtime.Tree.root doc) "calibrating full traversal"
+ in