anchor.diff:                    (send-irc-message
                      bot
                      (concatenate 'string
  -                                (tg-sender-first-name update)
  +                                (tg-sender-username update)
                                   ": " i))
                   (condition (e)
                     (progn
  
positive.code:         (jget :from
                (jget :message update))))
  
  (defun msgstr-tg->irc-list (update)
    (let ((text (jget :text (jget :message update)))
          (str (make-str))
  
negative.code:      ("text" . ,str))))
  
  (defun process-tg-msg (bot update)
    (setf *up* update)
    (if (tg-is-message? update) ; don't care about other data
        ;; one-line: reply, photo, file, sticker
        ;; multi-line: text
  