(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+PSBpIChsZW5ndGggc3RyKSkKICAgICAgICAgICAgICAgICAoaWYgY3VycmVudAogICAgICAgICAgICAgICAgICAgICAocmV2ZXJzZSAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgKHJldmVyc2Ugd29yZHMpKQogICAgICAgICAgICAgICAgIChsZXQgKChjaCAoY2hhciBzdHIgaSkpKQogICAgICAgICAgICAgICAgICAgKGlmIChjaGFyPSBjaCAjXFNwYWNlKQogICAgICAgICAgICAgICAgICAgICAgIChpZiBjdXJyZW50CiAgICAgICAgICAgICAgICAgICAgICAgICAgIChzcGxpdC1jaGFycyAoKyBpIDEpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5pbAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoY29ucyAoY29lcmNlIChyZXZlcnNlIGN1cnJlbnQpICdzdHJpbmcpIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgKHNwbGl0LWNoYXJzICgrIGkgMSkgbmlsIHdvcmRzKSkKICAgICAgICAgICAgICAgICAgICAgICAoc3BsaXQtY2hhcnMgKCsgaSAxKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjb25zIGNoIGN1cnJlbnQpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd29yZHMpKSkpKSkKICAgIChzcGxpdC1jaGFycyAwIG5pbCBuaWwpKSkKCihkZWZ1biBzcGxpdC1waHJhc2UgKHBocmFzZSkKICAobWFwY2FyICMnc3BsaXQtd29yZCAoc3BsaXQtc3RyaW5nIHBocmFzZSkpKQoKCihwcmludCAoc3BsaXQtcGhyYXNlICLQvNCw0LzQsCDQvNGL0LvQsCDRgNCw0LzRgyIpKQoKKHByaW50IChzcGxpdC1waHJhc2UgItCy0LXRgdC90LAg0LrRgNCw0YHQuNCy0LDRjyIpKQoKKHByaW50IChzcGxpdC1waHJhc2UgItGB0YLQvtC7INGB0YLRg9C7INC+0LrQvdC+IikpCgoocHJpbnQgKHNwbGl0LXBocmFzZSAi0LTQvtC8INGB0LDQtCDQu9C10YEiKSkKCihwcmludCAoc3BsaXQtcGhyYXNlICLQv9GA0L7Qs9GA0LDQvNC80LjRgNC+0LLQsNC90LjQtSDRhNGD0L3QutGG0LjQvtC90LDQu9GM0L3QvtC1IikpCgoocHJpbnQgKHNwbGl0LXBocmFzZSAi0YHRgtGA0L7QutCwINGB0LvQvtCy0L4g0YLQtdC60YHRgiIpKQoK