Red Black Tree Implementation in Haskell