Trie/Prefix Tree written in Haskell