Tree.xs: WIP Add merge()