anchor.diff:       `(("chat_id" . ,*tg-chat-id*)
          ("text" . ,str))))
     (setf *tg-message-sender* #'send-tg-message)
  +
  +  (defun process-tg-msg (update)
  +    (let ((msg-lst
  +           (cond
  +             ((tg-is-sticker? update) `(,(msgstr-tgsticker->irc update)))
  +             ((tg-is-message? update) (msgstr-tg->irc-list update)))))
  +      (dolist (msg msg-lst)
  +        (handler-case
  +            (send-irc-message msg)
  +          (condition (e)
  +            (format
  +             t
  +             "WARNING, can not send message! Reason: ~S" e)
  +            (push-msg-pool msg)
  +            (irc-reconnect
  +             0
  +             (lambda ()
  +               (clear-msg-pool-f 1))))))))
   
     (defun tg-getupdate-loop ()
       "Need a `overheat' protection"
  
positive.code: 
    (defparameter *pong* 0)
    (setf *pong* 0)
  
    (defun correct-cljson-surrogate-pairs (wrong-string)
      (with-output-to-string (out)
  
negative.code:                    first-name ": "
                     emoji emoji emoji)))
  
    (defun msgstr-tg->irc-list (update)
      (let ((first-name (jget :first--name
                              (jget :from (jget :message update))))
            (text (jget :text (jget :message update)))
            (str (make-str))
            (lst nil))
        (loop for c across text do
             (if (not (equal #\Newline c))
                 (with-output-to-string (out str)
                   (write-char c out))
                 (progn (push (concatenate 'string first-name ": " str)
                              lst)
                        (setf str (make-str)))))
        (if (= 0 (length str))
            nil
            (push str lst))
        (reverse lst)))
  
    (defun send-tg-message (str)
      (decoded-tg-request
  