https://blogs.perl.org/users/c_y_fung/Binary_tree.png