Haskell Implementation of Red-Black Trees