anchor.diff:  
   (defun tg-update-repliee-first-name (update)
     (jget :first--name
  +        (jget :from
  +              (jget :reply--to--message
  +                    (jget :message update)))))
  +
  +(defun tg-update-repliee-username (update)
  +  (jget :username
           (jget :from
                 (jget :reply--to--message
                       (jget :message update)))))
  
positive.code:                   (send-irc-message
                     bot
                     (concatenate 'string
                                  (tg-sender-first-name update)
                                  ": " i))
                  (condition (e)
                    (progn
  
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
  