(defun гласная? (char)
  "Проверяет, является ли символ гласной буквой."
  (member char '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е) :test #'char-equal))
 
(defun согласная? (char)
  "Проверяет, является ли символ согласной буквой."
  (and (graphic-char-p char)
       (not (гласная? char))))
 
(defun дели-слово (слово)
  "Преобразует слово в список его букв."
  (coerce (string слово) 'list))
 
(defun дели-слово-рекурсия (начало конец)
  "Делит слово на две части (рекурсивно)."
  (cond
    ((null конец) (list начало nil))  ; Список букв закончился
    ((гласная? (first конец)) (list (append начало (list (first конец))) (rest конец))) ; Если гласная, то это конец слога
    ((согласная? (first конец))     ; Если первый символ - согласная
     (if (null (rest конец))   ; Если это последний символ, тоже завершаем слог
         (list (append начало (list (first конец))) nil)
         (дели-слово-рекурсия (append начало (list (first конец))) (rest конец))))
    (t (list начало конец))))  ; Символ не гласная и не согласная
 
(defun раздели-слово (слово)
  "Основная функция разделения слова."
  (let ((буквы (дели-слово слово)))
    (дели-слово-рекурсия '() буквы)))
 
(defun первый-слог (слово)
  "Возвращает первый слог слова."
  (let ((результат (раздели-слово слово)))
    (when (first результат)
      (coerce (first результат) 'string))))
 
(defun остаток-слова (слово)
  "Возвращает часть слова, идущую после первого слога."
  (let ((результат (раздели-слово слово)))
    (if (second результат)
      (coerce (second результат) 'string)
      "")))
 
(defun сплетник-слово (слово ключевое-слово)
  "Возвращает слово и ключевое слово."
  (list слово ключевое-слово))
 
(defun safe-string (arg)
  "Преобразует символ или число в строку, или возвращает строку без изменений."
  (cond ((stringp arg) arg)
        ((symbolp arg) (symbol-name arg))
        ((numberp arg) (write-to-string arg))
        (t "")))
 
(defun сплетник-предложение-safe (предложение ключевое-слово)
  "Безопасная версия для разнородных списков и отсутствия слов."
  (let ((ключевое-слово-str (safe-string ключевое-слово)))
    (mapcar #'(lambda (слово)
               (if (stringp слово)
                   (сплетник-слово слово ключевое-слово-str)
                   (list (safe-string слово)  ключевое-слово-str))) ; Обрабатываем все как строки
            предложение)))
 
(defun сплетник-предложение (предложение ключевое-слово)
  "Переводит предложение на 'язык сплетника'."
  (mapcar #'(lambda (слово) (сплетник-слово слово ключевое-слово)) предложение))
 
;; Examples:
(let ((предложение '("слово" "переводится" "" 123 :символ nil "на" "язык" "сплетника"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение-safe предложение ключевое-слово)))
 
(let ((предложение '("мгла" "переводится" "на" "язык" "сплетника"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("надкусить" "ломтик" "колбасы"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("написать" "программу" "обработки" "текста"))
      (ключевое-слово "сплетня"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))
 
(let ((предложение '("отговорила" "роща" "золотая"))
      (ключевое-слово "кумир"))
  (format t "Исходное предложение: ~A~%" предложение)
  (format t "Ключевое слово: ~A~%" ключевое-слово)
  (format t "Предложение на языке сплетника: ~A~%" (сплетник-предложение предложение ключевое-слово)))

KGRlZnVuINCz0LvQsNGB0L3QsNGPPyAoY2hhcikKICAi0J/RgNC+0LLQtdGA0Y/QtdGCLCDRj9Cy0LvRj9C10YLRgdGPINC70Lgg0YHQuNC80LLQvtC7INCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNGDICNc0L4gI1zRiyAjXNC4ICNc0Y0gI1zRjyAjXNGOICNc0ZEgI1zQtSkgOnRlc3QgIydjaGFyLWVxdWFsKSkKCihkZWZ1biDRgdC+0LPQu9Cw0YHQvdCw0Y8/IChjaGFyKQogICLQn9GA0L7QstC10YDRj9C10YIsINGP0LLQu9GP0LXRgtGB0Y8g0LvQuCDRgdC40LzQstC+0Lsg0YHQvtCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKGFuZCAoZ3JhcGhpYy1jaGFyLXAgY2hhcikKICAgICAgIChub3QgKNCz0LvQsNGB0L3QsNGPPyBjaGFyKSkpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4pCiAgItCf0YDQtdC+0LHRgNCw0LfRg9C10YIg0YHQu9C+0LLQviDQsiDRgdC/0LjRgdC+0Log0LXQs9C+INCx0YPQutCyLiIKICAoY29lcmNlIChzdHJpbmcg0YHQu9C+0LLQvikgJ2xpc3QpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4t0YDQtdC60YPRgNGB0LjRjyAo0L3QsNGH0LDQu9C+INC60L7QvdC10YYpCiAgItCU0LXQu9C40YIg0YHQu9C+0LLQviDQvdCwINC00LLQtSDRh9Cw0YHRgtC4ICjRgNC10LrRg9GA0YHQuNCy0L3QvikuIgogIChjb25kCiAgICAoKG51bGwg0LrQvtC90LXRhikgKGxpc3Qg0L3QsNGH0LDQu9C+IG5pbCkpICA7INCh0L/QuNGB0L7QuiDQsdGD0LrQsiDQt9Cw0LrQvtC90YfQuNC70YHRjwogICAgKCjQs9C70LDRgdC90LDRjz8gKGZpcnN0INC60L7QvdC10YYpKSAobGlzdCAoYXBwZW5kINC90LDRh9Cw0LvQviAobGlzdCAoZmlyc3Qg0LrQvtC90LXRhikpKSAocmVzdCDQutC+0L3QtdGGKSkpIDsg0JXRgdC70Lgg0LPQu9Cw0YHQvdCw0Y8sINGC0L4g0Y3RgtC+INC60L7QvdC10YYg0YHQu9C+0LPQsAogICAgKCjRgdC+0LPQu9Cw0YHQvdCw0Y8/IChmaXJzdCDQutC+0L3QtdGGKSkgICAgIDsg0JXRgdC70Lgg0L/QtdGA0LLRi9C5INGB0LjQvNCy0L7QuyAtINGB0L7Qs9C70LDRgdC90LDRjwogICAgIChpZiAobnVsbCAocmVzdCDQutC+0L3QtdGGKSkgICA7INCV0YHQu9C4INGN0YLQviDQv9C+0YHQu9C10LTQvdC40Lkg0YHQuNC80LLQvtC7LCDRgtC+0LbQtSDQt9Cw0LLQtdGA0YjQsNC10Lwg0YHQu9C+0LMKICAgICAgICAgKGxpc3QgKGFwcGVuZCDQvdCw0YfQsNC70L4gKGxpc3QgKGZpcnN0INC60L7QvdC10YYpKSkgbmlsKQogICAgICAgICAo0LTQtdC70Lgt0YHQu9C+0LLQvi3RgNC10LrRg9GA0YHQuNGPIChhcHBlbmQg0L3QsNGH0LDQu9C+IChsaXN0IChmaXJzdCDQutC+0L3QtdGGKSkpIChyZXN0INC60L7QvdC10YYpKSkpCiAgICAodCAobGlzdCDQvdCw0YfQsNC70L4g0LrQvtC90LXRhikpKSkgIDsg0KHQuNC80LLQvtC7INC90LUg0LPQu9Cw0YHQvdCw0Y8g0Lgg0L3QtSDRgdC+0LPQu9Cw0YHQvdCw0Y8KCihkZWZ1biDRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+ICjRgdC70L7QstC+KQogICLQntGB0L3QvtCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGA0LDQt9C00LXQu9C10L3QuNGPINGB0LvQvtCy0LAuIgogIChsZXQgKCjQsdGD0LrQstGLICjQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICjQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gJygpINCx0YPQutCy0YspKSkKCihkZWZ1biDQv9C10YDQstGL0Lkt0YHQu9C+0LMgKNGB0LvQvtCy0L4pCiAgItCS0L7Qt9Cy0YDQsNGJ0LDQtdGCINC/0LXRgNCy0YvQuSDRgdC70L7QsyDRgdC70L7QstCwLiIKICAobGV0ICgo0YDQtdC30YPQu9GM0YLQsNGCICjRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICh3aGVuIChmaXJzdCDRgNC10LfRg9C70YzRgtCw0YIpCiAgICAgIChjb2VyY2UgKGZpcnN0INGA0LXQt9GD0LvRjNGC0LDRgikgJ3N0cmluZykpKSkKCihkZWZ1biDQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjRgdC70L7QstC+KQogICLQktC+0LfQstGA0LDRidCw0LXRgiDRh9Cw0YHRgtGMINGB0LvQvtCy0LAsINC40LTRg9GJ0YPRjiDQv9C+0YHQu9C1INC/0LXRgNCy0L7Qs9C+INGB0LvQvtCz0LAuIgogIChsZXQgKCjRgNC10LfRg9C70YzRgtCw0YIgKNGA0LDQt9C00LXQu9C4LdGB0LvQvtCy0L4g0YHQu9C+0LLQvikpKQogICAgKGlmIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKQogICAgICAoY29lcmNlIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKSAnc3RyaW5nKQogICAgICAiIikpKQoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0YHQu9C+0LLQviAo0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCS0L7Qt9Cy0YDQsNGJ0LDQtdGCINGB0LvQvtCy0L4g0Lgg0LrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+LiIKICAobGlzdCDRgdC70L7QstC+INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpCgooZGVmdW4gc2FmZS1zdHJpbmcgKGFyZykKICAi0J/RgNC10L7QsdGA0LDQt9GD0LXRgiDRgdC40LzQstC+0Lsg0LjQu9C4INGH0LjRgdC70L4g0LIg0YHRgtGA0L7QutGDLCDQuNC70Lgg0LLQvtC30LLRgNCw0YnQsNC10YIg0YHRgtGA0L7QutGDINCx0LXQtyDQuNC30LzQtdC90LXQvdC40LkuIgogIChjb25kICgoc3RyaW5ncCBhcmcpIGFyZykKICAgICAgICAoKHN5bWJvbHAgYXJnKSAoc3ltYm9sLW5hbWUgYXJnKSkKICAgICAgICAoKG51bWJlcnAgYXJnKSAod3JpdGUtdG8tc3RyaW5nIGFyZykpCiAgICAgICAgKHQgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUtc2FmZSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCR0LXQt9C+0L/QsNGB0L3QsNGPINCy0LXRgNGB0LjRjyDQtNC70Y8g0YDQsNC30L3QvtGA0L7QtNC90YvRhSDRgdC/0LjRgdC60L7QsiDQuCDQvtGC0YHRg9GC0YHRgtCy0LjRjyDRgdC70L7Qsi4iCiAgKGxldCAoKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIgKHNhZmUtc3RyaW5nINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKG1hcGNhciAjJyhsYW1iZGEgKNGB0LvQvtCy0L4pCiAgICAgICAgICAgICAgIChpZiAoc3RyaW5ncCDRgdC70L7QstC+KQogICAgICAgICAgICAgICAgICAgKNGB0L/Qu9C10YLQvdC40Lot0YHQu9C+0LLQviDRgdC70L7QstC+INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIpCiAgICAgICAgICAgICAgICAgICAobGlzdCAoc2FmZS1zdHJpbmcg0YHQu9C+0LLQvikgINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIpKSkgOyDQntCx0YDQsNCx0LDRgtGL0LLQsNC10Lwg0LLRgdC1INC60LDQuiDRgdGC0YDQvtC60LgKICAgICAgICAgICAg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpKQoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCf0LXRgNC10LLQvtC00LjRgiDQv9GA0LXQtNC70L7QttC10L3QuNC1INC90LAgJ9GP0LfRi9C6INGB0L/Qu9C10YLQvdC40LrQsCcuIgogIChtYXBjYXIgIycobGFtYmRhICjRgdC70L7QstC+KSAo0YHQv9C70LXRgtC90LjQui3RgdC70L7QstC+INGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkpCgo7OyBFeGFtcGxlczoKKGxldCAoKNC/0YDQtdC00LvQvtC20LXQvdC40LUgJygi0YHQu9C+0LLQviIgItC/0LXRgNC10LLQvtC00LjRgtGB0Y8iICIiIDEyMyA60YHQuNC80LLQvtC7IG5pbCAi0L3QsCIgItGP0LfRi9C6IiAi0YHQv9C70LXRgtC90LjQutCwIikpCiAgICAgICjQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4gItGB0L/Qu9C10YLQvdGPIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LUg0L3QsCDRj9C30YvQutC1INGB0L/Qu9C10YLQvdC40LrQsDogfkF+JSIgKNGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtS1zYWZlINC/0YDQtdC00LvQvtC20LXQvdC40LUg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkpCgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLQvNCz0LvQsCIgItC/0LXRgNC10LLQvtC00LjRgtGB0Y8iICLQvdCwIiAi0Y/Qt9GL0LoiICLRgdC/0LvQtdGC0L3QuNC60LAiKSkKICAgICAgKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQviAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkKICAoZm9ybWF0IHQgItCa0LvRjtGH0LXQstC+0LUg0YHQu9C+0LLQvjogfkF+JSIg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogIChmb3JtYXQgdCAi0J/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGP0LfRi9C60LUg0YHQv9C70LXRgtC90LjQutCwOiB+QX4lIiAo0YHQv9C70LXRgtC90LjQui3Qv9GA0LXQtNC70L7QttC10L3QuNC1INC/0YDQtdC00LvQvtC20LXQvdC40LUg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkpCgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLQvdCw0LTQutGD0YHQuNGC0YwiICLQu9C+0LzRgtC40LoiICLQutC+0LvQsdCw0YHRiyIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC90LDQv9C40YHQsNGC0YwiICLQv9GA0L7Qs9GA0LDQvNC80YMiICLQvtCx0YDQsNCx0L7RgtC60LgiICLRgtC10LrRgdGC0LAiKSkKICAgICAgKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQviAi0YHQv9C70LXRgtC90Y8iKSkKICAoZm9ybWF0IHQgItCY0YHRhdC+0LTQvdC+0LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtTogfkF+JSIg0L/RgNC10LTQu9C+0LbQtdC90LjQtSkKICAoZm9ybWF0IHQgItCa0LvRjtGH0LXQstC+0LUg0YHQu9C+0LLQvjogfkF+JSIg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KQogIChmb3JtYXQgdCAi0J/RgNC10LTQu9C+0LbQtdC90LjQtSDQvdCwINGP0LfRi9C60LUg0YHQv9C70LXRgtC90LjQutCwOiB+QX4lIiAo0YHQv9C70LXRgtC90LjQui3Qv9GA0LXQtNC70L7QttC10L3QuNC1INC/0YDQtdC00LvQvtC20LXQvdC40LUg0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+KSkpCgoobGV0ICgo0L/RgNC10LTQu9C+0LbQtdC90LjQtSAnKCLQvtGC0LPQvtCy0L7RgNC40LvQsCIgItGA0L7RidCwIiAi0LfQvtC70L7RgtCw0Y8iKSkKICAgICAgKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQviAi0LrRg9C80LjRgCIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSk=