Binary Search Tree in Haskell