Red-Black Tree on haskell