Red-Black Trees.
(tree-fold proc seed tree)
(tree-fold/reverse proc seed tree)
(tree-search less? tree obj failure success)
(tree-key-successor less? tree obj failure)
(tree-key-predecessor less? tree obj failure)
(tree-catenate tree1 pivot-key pivot-value tree2)
(tree-split less? tree obj)