camel_q_32983

let rec print_tree (n : levels) (t : int tree) : unit =
  match Lazy.force t with
  | Node (node, lst) -> let _ = Printf.printf "%i" node in
                        List.iter (print_tree (n - 1)) lst ;;