let subtree_right = fun d_tree -> subtree d_tree 1