RedBlack Trees implemented in Haskell