modified:   Trie.hs