Binary Search Tree - for Haskell learning purposes