(defun vowel-p (char)
  (member char '(#\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я
                 #\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я) 
          :test #'char=))
 
(defun split-word (word)
  (labels ((split-chars (chars current syllables)
             (if (null chars)
                 (if current
                     (if syllables
                         (reverse (cons (concatenate 'string 
                                                    (car syllables)
                                                    (coerce (reverse current) 'string))
                                       (cdr syllables)))
                         (list (coerce (reverse current) 'string)))
                     (reverse syllables))
                 (let ((ch (car chars)))
                   (if (vowel-p ch)
                       (split-chars (cdr chars)
                                   nil
                                   (cons (coerce (reverse (cons ch current)) 'string)
                                        syllables))
                       (split-chars (cdr chars)
                                   (cons ch current)
                                   syllables))))))
    (split-chars (coerce word 'list) nil nil)))
 
(defun split-string (str)
  (labels ((split-chars (i current words)
             (if (>= i (length str))
                 (if current
                     (reverse (cons (coerce (reverse current) 'string) words))
                     (reverse words))
                 (let ((ch (char str i)))
                   (if (char= ch #\Space)
                       (if current
                           (split-chars (+ i 1)
                                       nil
                                       (cons (coerce (reverse current) 'string) words))
                           (split-chars (+ i 1) nil words))
                       (split-chars (+ i 1)
                                   (cons ch current)
                                   words))))))
    (split-chars 0 nil nil)))
 
(defun split-phrase (phrase)
  (mapcar #'split-word (split-string phrase)))
 
(print (split-phrase "функциональное программирование"))
(print (split-phrase "написать программу"))
(print (split-phrase "дана фраза на русском языке"))
(print (split-phrase " эвакуатор импровизация" ))
(print (split-phrase "коллекция чай" ))
(print (split-phrase "строка слово текст"))

KGRlZnVuIHZvd2VsLXAgKGNoYXIpCiAgKG1lbWJlciBjaGFyICcoI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjwogICAgICAgICAgICAgICAgICNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8pIAogICAgICAgICAgOnRlc3QgIydjaGFyPSkpCgooZGVmdW4gc3BsaXQtd29yZCAod29yZCkKICAobGFiZWxzICgoc3BsaXQtY2hhcnMgKGNoYXJzIGN1cnJlbnQgc3lsbGFibGVzKQogICAgICAgICAgICAgKGlmIChudWxsIGNoYXJzKQogICAgICAgICAgICAgICAgIChpZiBjdXJyZW50CiAgICAgICAgICAgICAgICAgICAgIChpZiBzeWxsYWJsZXMKICAgICAgICAgICAgICAgICAgICAgICAgIChyZXZlcnNlIChjb25zIChjb25jYXRlbmF0ZSAnc3RyaW5nIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGNhciBzeWxsYWJsZXMpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY2RyIHN5bGxhYmxlcykpKQogICAgICAgICAgICAgICAgICAgICAgICAgKGxpc3QgKGNvZXJjZSAocmV2ZXJzZSBjdXJyZW50KSAnc3RyaW5nKSkpCiAgICAgICAgICAgICAgICAgICAgIChyZXZlcnNlIHN5bGxhYmxlcykpCiAgICAgICAgICAgICAgICAgKGxldCAoKGNoIChjYXIgY2hhcnMpKSkKICAgICAgICAgICAgICAgICAgIChpZiAodm93ZWwtcCBjaCkKICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtY2hhcnMgKGNkciBjaGFycykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuaWwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIChjb25zIGNoIGN1cnJlbnQpKSAnc3RyaW5nKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc3lsbGFibGVzKSkKICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtY2hhcnMgKGNkciBjaGFycykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyBjaCBjdXJyZW50KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHN5bGxhYmxlcykpKSkpKQogICAgKHNwbGl0LWNoYXJzIChjb2VyY2Ugd29yZCAnbGlzdCkgbmlsIG5pbCkpKQoKKGRlZnVuIHNwbGl0LXN0cmluZyAoc3RyKQogIChsYWJlbHMgKChzcGxpdC1jaGFycyAoaSBjdXJyZW50IHdvcmRzKQogICAgICAgICAgICAgKGlmICg+PSBpIChsZW5ndGggc3RyKSkKICAgICAgICAgICAgICAgICAoaWYgY3VycmVudAogICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgKHJldmVyc2Ugd29yZHMpKQogICAgICAgICAgICAgICAgIChsZXQgKChjaCAoY2hhciBzdHIgaSkpKQogICAgICAgICAgICAgICAgICAgKGlmIChjaGFyPSBjaCAjXFNwYWNlKQogICAgICAgICAgICAgICAgICAgICAgIChpZiBjdXJyZW50CiAgICAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC1jaGFycyAoKyBpIDEpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5pbAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgKHNwbGl0LWNoYXJzICgrIGkgMSkgbmlsIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtY2hhcnMgKCsgaSAxKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIGNoIGN1cnJlbnQpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd29yZHMpKSkpKSkKICAgIChzcGxpdC1jaGFycyAwIG5pbCBuaWwpKSkKCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKQoKKHByaW50IChzcGxpdC1waHJhc2UgItGE0YPQvdC60YbQuNC+0L3QsNC70YzQvdC+0LUg0L/RgNC+0LPRgNCw0LzQvNC40YDQvtCy0LDQvdC40LUiKSkKKHByaW50IChzcGxpdC1waHJhc2UgItC90LDQv9C40YHQsNGC0Ywg0L/RgNC+0LPRgNCw0LzQvNGDIikpCihwcmludCAoc3BsaXQtcGhyYXNlICLQtNCw0L3QsCDRhNGA0LDQt9CwINC90LAg0YDRg9GB0YHQutC+0Lwg0Y/Qt9GL0LrQtSIpKQoocHJpbnQgKHNwbGl0LXBocmFzZSAiINGN0LLQsNC60YPQsNGC0L7RgCDQuNC80L/RgNC+0LLQuNC30LDRhtC40Y8iICkpCihwcmludCAoc3BsaXQtcGhyYXNlICLQutC+0LvQu9C10LrRhtC40Y8g0YfQsNC5IiApKQoocHJpbnQgKHNwbGl0LXBocmFzZSAi0YHRgtGA0L7QutCwINGB0LvQvtCy0L4g0YLQtdC60YHRgiIpKQ==