(defun first-syllable (word)
  "Возвращает первый слог слова (более корректно)."
  (let ((vowels '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е))
        (consonants '(#\б #\в #\г #\д #\ж #\з #\й #\к #\л #\м #\н #\п #\р #\с #\т #\ф #\х #\ц #\ч #\ш #\щ)))
    (loop for i from 0 below (length word)
          for char = (char word i)
          if (member char vowels)
            do (return (subseq word 0 (1+ i)))
          finally (return (subseq word 0)))))  ; Если гласных нет, вернуть все слово
 
(defun word-remainder (word)
   "Возвращает часть слова, идущую после первого слога."
 
  (let ((first (first-syllable word)))
    (if first
        (subseq word (length first))
        "")))
 
(defun gossip-word (word keyword)
  "Переводит одно слово на 'язык сплетника'."
  (let ((word-syllable (first-syllable word))
        (keyword-syllable (first-syllable keyword))
        (word-remainder (word-remainder word))
        (keyword-remainder (word-remainder keyword)))
    (list (concatenate 'string (if keyword-syllable keyword-syllable "") word-remainder)
          (concatenate 'string (if word-syllable word-syllable "") keyword-remainder))))
 
(defun gossip-sentence (sentence keyword)
"Переводит предложение на 'язык сплетника'."
  (mapcar #'(lambda (word) (gossip-word word keyword)) sentence))
 
(defun safe-string (arg)
    "Преобразует символ или число в строку, или возвращает строку без изменений."
 
  (cond ((stringp arg) arg)
        ((symbolp arg) (symbol-name arg))
        ((numberp arg) (write-to-string arg))
        (t "")))
 
(defun gossip-sentence-safe (sentence keyword)
 "Безопасная версия для разнородных списков и отсутствия слов."
  (let ((keyword-str (safe-string keyword)))
    (mapcar #'(lambda (word)
                (gossip-word (safe-string word) keyword-str))
            sentence)))
 
;; Example usage:
(let ((sentence '("слово" "переводится" "" 123 :символ nil "на" "язык" "сплетника"))
      (keyword "сплетня"))
  (format t "Исходное предложение: ~A~%" sentence)
  (format t "Ключевое слово: ~A~%" keyword)
  (format t "Предложение на языке сплетника: ~A~%" (gossip-sentence-safe sentence keyword)))
 
(let ((sentence '("отговорила" "роща" "золотая"))
      (keyword "кумир"))
  (format t "Исходное предложение: ~A~%" sentence)
  (format t "Ключевое слово: ~A~%" keyword)
  (format t "Предложение на языке сплетника: ~A~%" (gossip-sentence sentence keyword)))
 
  (let ((sentence '("написать" "программу" "обработки" "текста"))
      (keyword "сплетня"))
  (format t "Исходное предложение: ~A~%" sentence)
  (format t "Ключевое слово: ~A~%" keyword)
  (format t "Предложение на языке сплетника: ~A~%" (gossip-sentence sentence keyword)))
 

KGRlZnVuIGZpcnN0LXN5bGxhYmxlICh3b3JkKQogICLQktC+0LfQstGA0LDRidCw0LXRgiDQv9C10YDQstGL0Lkg0YHQu9C+0LMg0YHQu9C+0LLQsCAo0LHQvtC70LXQtSDQutC+0YDRgNC10LrRgtC90L4pLiIKICAobGV0ICgodm93ZWxzICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkpCiAgICAgICAgKGNvbnNvbmFudHMgJygjXNCxICNc0LIgI1zQsyAjXNC0ICNc0LYgI1zQtyAjXNC5ICNc0LogI1zQuyAjXNC8ICNc0L0gI1zQvyAjXNGAICNc0YEgI1zRgiAjXNGEICNc0YUgI1zRhiAjXNGHICNc0YggI1zRiSkpKQogICAgKGxvb3AgZm9yIGkgZnJvbSAwIGJlbG93IChsZW5ndGggd29yZCkKICAgICAgICAgIGZvciBjaGFyID0gKGNoYXIgd29yZCBpKQogICAgICAgICAgaWYgKG1lbWJlciBjaGFyIHZvd2VscykKICAgICAgICAgICAgZG8gKHJldHVybiAoc3Vic2VxIHdvcmQgMCAoMSsgaSkpKQogICAgICAgICAgZmluYWxseSAocmV0dXJuIChzdWJzZXEgd29yZCAwKSkpKSkgIDsg0JXRgdC70Lgg0LPQu9Cw0YHQvdGL0YUg0L3QtdGCLCDQstC10YDQvdGD0YLRjCDQstGB0LUg0YHQu9C+0LLQvgoKKGRlZnVuIHdvcmQtcmVtYWluZGVyICh3b3JkKQogICAi0JLQvtC30LLRgNCw0YnQsNC10YIg0YfQsNGB0YLRjCDRgdC70L7QstCwLCDQuNC00YPRidGD0Y4g0L/QvtGB0LvQtSDQv9C10YDQstC+0LPQviDRgdC70L7Qs9CwLiIKIAogIChsZXQgKChmaXJzdCAoZmlyc3Qtc3lsbGFibGUgd29yZCkpKQogICAgKGlmIGZpcnN0CiAgICAgICAgKHN1YnNlcSB3b3JkIChsZW5ndGggZmlyc3QpKQogICAgICAgICIiKSkpCgooZGVmdW4gZ29zc2lwLXdvcmQgKHdvcmQga2V5d29yZCkKICAi0J/QtdGA0LXQstC+0LTQuNGCINC+0LTQvdC+INGB0LvQvtCy0L4g0L3QsCAn0Y/Qt9GL0Log0YHQv9C70LXRgtC90LjQutCwJy4iCiAgKGxldCAoKHdvcmQtc3lsbGFibGUgKGZpcnN0LXN5bGxhYmxlIHdvcmQpKQogICAgICAgIChrZXl3b3JkLXN5bGxhYmxlIChmaXJzdC1zeWxsYWJsZSBrZXl3b3JkKSkKICAgICAgICAod29yZC1yZW1haW5kZXIgKHdvcmQtcmVtYWluZGVyIHdvcmQpKQogICAgICAgIChrZXl3b3JkLXJlbWFpbmRlciAod29yZC1yZW1haW5kZXIga2V5d29yZCkpKQogICAgKGxpc3QgKGNvbmNhdGVuYXRlICdzdHJpbmcgKGlmIGtleXdvcmQtc3lsbGFibGUga2V5d29yZC1zeWxsYWJsZSAiIikgd29yZC1yZW1haW5kZXIpCiAgICAgICAgICAoY29uY2F0ZW5hdGUgJ3N0cmluZyAoaWYgd29yZC1zeWxsYWJsZSB3b3JkLXN5bGxhYmxlICIiKSBrZXl3b3JkLXJlbWFpbmRlcikpKSkKCihkZWZ1biBnb3NzaXAtc2VudGVuY2UgKHNlbnRlbmNlIGtleXdvcmQpCiLQn9C10YDQtdCy0L7QtNC40YIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwICfRj9C30YvQuiDRgdC/0LvQtdGC0L3QuNC60LAnLiIKICAobWFwY2FyICMnKGxhbWJkYSAod29yZCkgKGdvc3NpcC13b3JkIHdvcmQga2V5d29yZCkpIHNlbnRlbmNlKSkKCihkZWZ1biBzYWZlLXN0cmluZyAoYXJnKQogICAgItCf0YDQtdC+0LHRgNCw0LfRg9C10YIg0YHQuNC80LLQvtC7INC40LvQuCDRh9C40YHQu9C+INCyINGB0YLRgNC+0LrRgywg0LjQu9C4INCy0L7Qt9Cy0YDQsNGJ0LDQtdGCINGB0YLRgNC+0LrRgyDQsdC10Lcg0LjQt9C80LXQvdC10L3QuNC5LiIKCiAgKGNvbmQgKChzdHJpbmdwIGFyZykgYXJnKQogICAgICAgICgoc3ltYm9scCBhcmcpIChzeW1ib2wtbmFtZSBhcmcpKQogICAgICAgICgobnVtYmVycCBhcmcpICh3cml0ZS10by1zdHJpbmcgYXJnKSkKICAgICAgICAodCAiIikpKQoKKGRlZnVuIGdvc3NpcC1zZW50ZW5jZS1zYWZlIChzZW50ZW5jZSBrZXl3b3JkKQogItCR0LXQt9C+0L/QsNGB0L3QsNGPINCy0LXRgNGB0LjRjyDQtNC70Y8g0YDQsNC30L3QvtGA0L7QtNC90YvRhSDRgdC/0LjRgdC60L7QsiDQuCDQvtGC0YHRg9GC0YHRgtCy0LjRjyDRgdC70L7Qsi4iCiAgKGxldCAoKGtleXdvcmQtc3RyIChzYWZlLXN0cmluZyBrZXl3b3JkKSkpCiAgICAobWFwY2FyICMnKGxhbWJkYSAod29yZCkKICAgICAgICAgICAgICAgIChnb3NzaXAtd29yZCAoc2FmZS1zdHJpbmcgd29yZCkga2V5d29yZC1zdHIpKQogICAgICAgICAgICBzZW50ZW5jZSkpKQoKOzsgRXhhbXBsZSB1c2FnZToKKGxldCAoKHNlbnRlbmNlICcoItGB0LvQvtCy0L4iICLQv9C10YDQtdCy0L7QtNC40YLRgdGPIiAiIiAxMjMgOtGB0LjQvNCy0L7QuyBuaWwgItC90LAiICLRj9C30YvQuiIgItGB0L/Qu9C10YLQvdC40LrQsCIpKQogICAgICAoa2V5d29yZCAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIgc2VudGVuY2UpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiIGtleXdvcmQpCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiIChnb3NzaXAtc2VudGVuY2Utc2FmZSBzZW50ZW5jZSBrZXl3b3JkKSkpCgoobGV0ICgoc2VudGVuY2UgJygi0L7RgtCz0L7QstC+0YDQuNC70LAiICLRgNC+0YnQsCIgItC30L7Qu9C+0YLQsNGPIikpCiAgICAgIChrZXl3b3JkICLQutGD0LzQuNGAIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiIHNlbnRlbmNlKQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiBrZXl3b3JkKQogIChmb3JtYXQgdCAi0J/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGP0LfRi9C60LUg0YHQv9C70LXRgtC90LjQutCwOiB+QX4lIiAoZ29zc2lwLXNlbnRlbmNlIHNlbnRlbmNlIGtleXdvcmQpKSkKICAKICAobGV0ICgoc2VudGVuY2UgJygi0L3QsNC/0LjRgdCw0YLRjCIgItC/0YDQvtCz0YDQsNC80LzRgyIgItC+0LHRgNCw0LHQvtGC0LrQuCIgItGC0LXQutGB0YLQsCIpKQogICAgICAoa2V5d29yZCAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIgc2VudGVuY2UpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiIGtleXdvcmQpCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiIChnb3NzaXAtc2VudGVuY2Ugc2VudGVuY2Uga2V5d29yZCkpKQo=