build :: [LogMessage] -> MessageTree
{- Start with an empty tree, and 'accumulate' the nodes into the tree-}
-- build = foldl (\acc x -> insert x acc) Leaf
-- build = foldl (flip insert) Leaf
build = foldr insert Leaf
build :: [LogMessage] -> MessageTree
build = foldr insert Leaf
build = foldr insert Leaf