Display of linguist trees in Haskell, using Diagrams