let node count () = let rec n = 0 -> (pre n + 1) in print_int n; print_newline ()