insert lm           (Node left msg right) =
        if tsForLog lm < tsForLog msg
          then Node (insert lm left) msg right
          else Node left msg (insert lm right)
insert lm           (Node left msg right) =
        if tsForLog lm < tsForLog msg
          then Node (insert lm left) msg right
          else Node left msg (insert lm right)
insert lm           (Node left msg right) =
        if tsForLog lm < tsForLog msg
          then Node (insert lm left) msg right
          else Node left msg (insert lm right)