bfs_traverse( \&print_node, $tree );
# * 1
# * 7
#   * 2
#   * 3
#     * 4
#     * 6
#       * 5