-- Ex. 2
insert :: LogMessage -> MessageTree -> MessageTree
insert (Unknown _) tree = tree
insert :: LogMessage -> MessageTree -> MessageTree
insert (Unknown _) tree = tree
insert (Unknown _) tree = tree