let _ = Printf.eprintf "Timing pointer allocation %!" in
let pointers = time (build_pointers) v in
let _ = Printf.eprintf "Timing pointer iteration %!" in
let i = time (iter_pointers) pointers in
let _ = Printf.eprintf "Traversed %i pointers\n\nTiming pointer deallocation %!" i in
let _ = Printf.eprintf "Timing pointer allocation %!" in
let pointers = time (build_pointers) v in
let _ = Printf.eprintf "Timing pointer iteration %!" in
let i = time (iter_pointers) pointers in
let _ = Printf.eprintf "Traversed %i pointers\n\nTiming pointer deallocation %!" i in