singleton :: (Ord a) => a -> RedBlackTree a
singleton x = Node x Black Empty Empty
singleton :: (Ord a) => a -> RedBlackTree a
singleton x = Node x Black Empty Empty
singleton x = Node x Black Empty Empty