subtree_at function

Extract a sub-tree.