Just practicing some Haskell using binary trees