[Haskell] Displaying trees in Haskell