splay tree - haskell