let _ = Printf.eprintf "Timing first_child/next_sibling %!" in
let _ = time (Tree.benchmark_fcns) v in
let _ = Printf.eprintf "Timing last_child/prev_sibling %!" in
let _ = time (Tree.benchmark_lcps) v in
let _ = Printf.eprintf "Timing jump to a %!" in
let _ = Printf.eprintf "Timing first_child/next_sibling %!" in
let _ = time (Tree.benchmark_fcns) v in
let _ = Printf.eprintf "Timing last_child/prev_sibling %!" in
let _ = time (Tree.benchmark_lcps) v in
let _ = Printf.eprintf "Timing jump to a %!" in