(defun гласная? (char)
  "Проверяет, является ли символ гласной буквой."
  (member char '(#\а #\у #\о #\ы #\и #\э #\я #\ю #\ё #\е) :test #'char-equal))
 
(defun согласная? (char)
  "Проверяет, является ли символ согласной буквой."
  (and (graphic-char-p char)  ; Check if it's a printable character
       (not (гласная? char))))
 
(defun дели-слово (слово)
  "Преобразует слово в список его букв."
  (coerce (string слово) 'list))
 
(defun дели-слово-рекурсия (начало конец)
  "Делит слово на две части (рекурсивно)."
  (cond
    ((null конец) (list начало nil)) ; List of letters ended
    ((согласная? (first конец))  ; If the first character is a consonant
     (дели-слово-рекурсия (append начало (list (first конец))) (rest конец))) ; Add the consonant to the beginning
    (t (list начало конец)))) ; Otherwise (vowel or end of list) - return beginning and end
 
(defun раздели-слово (слово)
  "Основная функция разделения слова."
  (let ((буквы (дели-слово слово)))
    (дели-слово-рекурсия '() буквы)))
 
(defun первый-слог (слово)
  "Возвращает первый слог слова."
  (let ((результат (раздели-слово слово)))
    (when (first результат)
      (coerce (first результат) 'string))))
 
(defun остаток-слова (слово)
  "Возвращает часть слова, идущую после первого слога."
  (let ((результат (раздели-слово слово)))
    (if (second результат)
      (coerce (second результат) 'string)
      "")))
 
(defun сплетник-слово (слово ключевое-слово)
  "Переводит одно слово на 'язык сплетника'."
  (let ((слог-слова (первый-слог слово))
        (слог-ключа (первый-слог ключевое-слово))
        (остаток-слова (остаток-слова слово))
        (остаток-ключа (остаток-слова ключевое-слово)))
    (list (concatenate 'string (if слог-ключа слог-ключа "") остаток-слова)
          (concatenate 'string (if слог-слова слог-слова "") остаток-ключа))))
 
(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 слово ключевое-слово-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+0Lsg0YHQvtCz0LvQsNGB0L3QvtC5INCx0YPQutCy0L7QuS4iCiAgKGFuZCAoZ3JhcGhpYy1jaGFyLXAgY2hhcikgIDsgQ2hlY2sgaWYgaXQncyBhIHByaW50YWJsZSBjaGFyYWN0ZXIKICAgICAgIChub3QgKNCz0LvQsNGB0L3QsNGPPyBjaGFyKSkpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4gKNGB0LvQvtCy0L4pCiAgItCf0YDQtdC+0LHRgNCw0LfRg9C10YIg0YHQu9C+0LLQviDQsiDRgdC/0LjRgdC+0Log0LXQs9C+INCx0YPQutCyLiIKICAoY29lcmNlIChzdHJpbmcg0YHQu9C+0LLQvikgJ2xpc3QpKQoKKGRlZnVuINC00LXQu9C4LdGB0LvQvtCy0L4t0YDQtdC60YPRgNGB0LjRjyAo0L3QsNGH0LDQu9C+INC60L7QvdC10YYpCiAgItCU0LXQu9C40YIg0YHQu9C+0LLQviDQvdCwINC00LLQtSDRh9Cw0YHRgtC4ICjRgNC10LrRg9GA0YHQuNCy0L3QvikuIgogIChjb25kCiAgICAoKG51bGwg0LrQvtC90LXRhikgKGxpc3Qg0L3QsNGH0LDQu9C+IG5pbCkpIDsgTGlzdCBvZiBsZXR0ZXJzIGVuZGVkCiAgICAoKNGB0L7Qs9C70LDRgdC90LDRjz8gKGZpcnN0INC60L7QvdC10YYpKSAgOyBJZiB0aGUgZmlyc3QgY2hhcmFjdGVyIGlzIGEgY29uc29uYW50CiAgICAgKNC00LXQu9C4LdGB0LvQvtCy0L4t0YDQtdC60YPRgNGB0LjRjyAoYXBwZW5kINC90LDRh9Cw0LvQviAobGlzdCAoZmlyc3Qg0LrQvtC90LXRhikpKSAocmVzdCDQutC+0L3QtdGGKSkpIDsgQWRkIHRoZSBjb25zb25hbnQgdG8gdGhlIGJlZ2lubmluZwogICAgKHQgKGxpc3Qg0L3QsNGH0LDQu9C+INC60L7QvdC10YYpKSkpIDsgT3RoZXJ3aXNlICh2b3dlbCBvciBlbmQgb2YgbGlzdCkgLSByZXR1cm4gYmVnaW5uaW5nIGFuZCBlbmQKCihkZWZ1biDRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+ICjRgdC70L7QstC+KQogICLQntGB0L3QvtCy0L3QsNGPINGE0YPQvdC60YbQuNGPINGA0LDQt9C00LXQu9C10L3QuNGPINGB0LvQvtCy0LAuIgogIChsZXQgKCjQsdGD0LrQstGLICjQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICjQtNC10LvQuC3RgdC70L7QstC+LdGA0LXQutGD0YDRgdC40Y8gJygpINCx0YPQutCy0YspKSkKCihkZWZ1biDQv9C10YDQstGL0Lkt0YHQu9C+0LMgKNGB0LvQvtCy0L4pCiAgItCS0L7Qt9Cy0YDQsNGJ0LDQtdGCINC/0LXRgNCy0YvQuSDRgdC70L7QsyDRgdC70L7QstCwLiIKICAobGV0ICgo0YDQtdC30YPQu9GM0YLQsNGCICjRgNCw0LfQtNC10LvQuC3RgdC70L7QstC+INGB0LvQvtCy0L4pKSkKICAgICh3aGVuIChmaXJzdCDRgNC10LfRg9C70YzRgtCw0YIpCiAgICAgIChjb2VyY2UgKGZpcnN0INGA0LXQt9GD0LvRjNGC0LDRgikgJ3N0cmluZykpKSkKCihkZWZ1biDQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjRgdC70L7QstC+KQogICLQktC+0LfQstGA0LDRidCw0LXRgiDRh9Cw0YHRgtGMINGB0LvQvtCy0LAsINC40LTRg9GJ0YPRjiDQv9C+0YHQu9C1INC/0LXRgNCy0L7Qs9C+INGB0LvQvtCz0LAuIgogIChsZXQgKCjRgNC10LfRg9C70YzRgtCw0YIgKNGA0LDQt9C00LXQu9C4LdGB0LvQvtCy0L4g0YHQu9C+0LLQvikpKQogICAgKGlmIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKQogICAgICAoY29lcmNlIChzZWNvbmQg0YDQtdC30YPQu9GM0YLQsNGCKSAnc3RyaW5nKQogICAgICAiIikpKQoKKGRlZnVuINGB0L/Qu9C10YLQvdC40Lot0YHQu9C+0LLQviAo0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCf0LXRgNC10LLQvtC00LjRgiDQvtC00L3QviDRgdC70L7QstC+INC90LAgJ9GP0LfRi9C6INGB0L/Qu9C10YLQvdC40LrQsCcuIgogIChsZXQgKCjRgdC70L7Qsy3RgdC70L7QstCwICjQv9C10YDQstGL0Lkt0YHQu9C+0LMg0YHQu9C+0LLQvikpCiAgICAgICAgKNGB0LvQvtCzLdC60LvRjtGH0LAgKNC/0LXRgNCy0YvQuS3RgdC70L7QsyDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKQogICAgICAgICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwINGB0LvQvtCy0L4pKQogICAgICAgICjQvtGB0YLQsNGC0L7Qui3QutC70Y7Rh9CwICjQvtGB0YLQsNGC0L7Qui3RgdC70L7QstCwINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKGxpc3QgKGNvbmNhdGVuYXRlICdzdHJpbmcgKGlmINGB0LvQvtCzLdC60LvRjtGH0LAg0YHQu9C+0LMt0LrQu9GO0YfQsCAiIikg0L7RgdGC0LDRgtC+0Lot0YHQu9C+0LLQsCkKICAgICAgICAgIChjb25jYXRlbmF0ZSAnc3RyaW5nIChpZiDRgdC70L7Qsy3RgdC70L7QstCwINGB0LvQvtCzLdGB0LvQvtCy0LAgIiIpINC+0YHRgtCw0YLQvtC6LdC60LvRjtGH0LApKSkpCgooZGVmdW4gc2FmZS1zdHJpbmcgKGFyZykKICAi0J/RgNC10L7QsdGA0LDQt9GD0LXRgiDRgdC40LzQstC+0Lsg0LjQu9C4INGH0LjRgdC70L4g0LIg0YHRgtGA0L7QutGDLCDQuNC70Lgg0LLQvtC30LLRgNCw0YnQsNC10YIg0YHRgtGA0L7QutGDINCx0LXQtyDQuNC30LzQtdC90LXQvdC40LkuIgogIChjb25kICgoc3RyaW5ncCBhcmcpIGFyZykKICAgICAgICAoKHN5bWJvbHAgYXJnKSAoc3ltYm9sLW5hbWUgYXJnKSkKICAgICAgICAoKG51bWJlcnAgYXJnKSAod3JpdGUtdG8tc3RyaW5nIGFyZykpCiAgICAgICAgKHQgIiIpKSkKCihkZWZ1biDRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUtc2FmZSAo0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgItCR0LXQt9C+0L/QsNGB0L3QsNGPINCy0LXRgNGB0LjRjyDQtNC70Y8g0YDQsNC30L3QvtGA0L7QtNC90YvRhSDRgdC/0LjRgdC60L7QsiDQuCDQvtGC0YHRg9GC0YHRgtCy0LjRjyDRgdC70L7Qsi4iCiAgKGxldCAoKNC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvi1zdHIgKHNhZmUtc3RyaW5nINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQogICAgKG1hcGNhciAjJyhsYW1iZGEgKNGB0LvQvtCy0L4pCiAgICAgICAgICAgKGlmIChzdHJpbmdwINGB0LvQvtCy0L4pIDsg0J/RgNC+0LLQtdGA0Y/QtdC8LCDRh9GC0L4g0YHQu9C+0LLQviAtINGB0YLRgNC+0LrQsAogICAgICAgICAgICAgICAo0YHQv9C70LXRgtC90LjQui3RgdC70L7QstC+INGB0LvQvtCy0L4g0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+LXN0cikKICAgICAgICAgICAgICAgKGxpc3Qg0YHQu9C+0LLQviDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4tc3RyKSkpIDsg0JXRgdC70Lgg0L3QtSDRgdGC0YDQvtC60LAsINC/0YDQvtGB0YLQviDQstC+0LfQstGA0LDRidCw0LXQvCDQv9Cw0YDRgwogICAgICAgICAgICDQv9GA0LXQtNC70L7QttC10L3QuNC1KSkpCgoKKGRlZnVuINGB0L/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+0LbQtdC90LjQtSAnKCLQvdCw0LTQutGD0YHQuNGC0Ywg0LvQvtC80YLQuNC6INC60L7Qu9Cx0LDRgdGLIikpCiAgICAgICjQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4gItGB0L/Qu9C10YLQvdGPIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LUg0L3QsCDRj9C30YvQutC1INGB0L/Qu9C10YLQvdC40LrQsDogfkF+JSIgKNGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQv9GA0LXQtNC70L7QttC10L3QuNC1INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQoKKGxldCAoKNC/0YDQtdC00LvQvtC20LXQvdC40LUgJygi0L3QsNC/0LjRgdCw0YLRjCIgItC/0YDQvtCz0YDQsNC80LzRgyIgItC+0LHRgNCw0LHQvtGC0LrQuCIgItGC0LXQutGB0YLQsCIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLRgdC/0LvQtdGC0L3RjyIpKQogIChmb3JtYXQgdCAi0JjRgdGF0L7QtNC90L7QtSDQv9GA0LXQtNC70L7QttC10L3QuNC1OiB+QX4lIiDQv9GA0LXQtNC70L7QttC10L3QuNC1KQogIChmb3JtYXQgdCAi0JrQu9GO0YfQtdCy0L7QtSDRgdC70L7QstC+OiB+QX4lIiDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pCiAgKGZvcm1hdCB0ICLQn9GA0LXQtNC70L7QttC10L3QuNC1INC90LAg0Y/Qt9GL0LrQtSDRgdC/0LvQtdGC0L3QuNC60LA6IH5BfiUiICjRgdC/0LvQtdGC0L3QuNC6LdC/0YDQtdC00LvQvtC20LXQvdC40LUg0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQutC70Y7Rh9C10LLQvtC1LdGB0LvQvtCy0L4pKSkKCihsZXQgKCjQv9GA0LXQtNC70L7QttC10L3QuNC1ICcoItC+0YLQs9C+0LLQvtGA0LjQu9CwIiAi0YDQvtGJ0LAiICLQt9C+0LvQvtGC0LDRjyIpKQogICAgICAo0LrQu9GO0YfQtdCy0L7QtS3RgdC70L7QstC+ICLQutGD0LzQuNGAIikpCiAgKGZvcm1hdCB0ICLQmNGB0YXQvtC00L3QvtC1INC/0YDQtdC00LvQvtC20LXQvdC40LU6IH5BfiUiINC/0YDQtdC00LvQvtC20LXQvdC40LUpCiAgKGZvcm1hdCB0ICLQmtC70Y7Rh9C10LLQvtC1INGB0LvQvtCy0L46IH5BfiUiINC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikKICAoZm9ybWF0IHQgItCf0YDQtdC00LvQvtC20LXQvdC40LUg0L3QsCDRj9C30YvQutC1INGB0L/Qu9C10YLQvdC40LrQsDogfkF+JSIgKNGB0L/Qu9C10YLQvdC40Lot0L/RgNC10LTQu9C+0LbQtdC90LjQtSDQv9GA0LXQtNC70L7QttC10L3QuNC1INC60LvRjtGH0LXQstC+0LUt0YHQu9C+0LLQvikpKQ==