orclev

import Data.Maybe
import Control.Monad (liftM)
import Data.List (isPrefixOf)
import qualified Data.Map as M
import qualified Data.Foldable as F

-- | Trie container data type
data Trie a = Trie { value    :: Maybe a
                   , children :: M.Map Char (Trie a) }
              deriving (Show)