anchor.diff:          (jget :from
                 (jget :message update))))
   
  +(defun tg-sender-username (update)
  +  (jget :username
  +        (jget :from (jget :message update))))
  +
   (defun msgstr-tg->irc-list (update)
     (let ((text (jget :text (jget :message update)))
           (str (make-str))
  
positive.code: 
  (defun tg-update-repliee-first-name (update)
    (jget :first--name
          (jget :from
                (jget :reply--to--message
                      (jget :message update)))))
  
negative.code:                   (send-irc-message
                     bot
                     (concatenate 'string
                                  (tg-sender-username update)
                                  ": " i))
                  (condition (e)
                    (progn
  