Haskell Code for BST and LeftistHeap