An implementation of a Trie in haskell