[Haskell-beginners] Finding the height of a simple binary tree