SuffixTrie.hs