Implementations of learning patterns with Haskell. Generating a tree usable with EdiT2.