Работа со списком в строку в переводчике слов

Question

Я новичок в схеме и у меня возникли проблемы с созданием относительно простого переводчика пиглатин ((слово начинается с гласного, добавьте "путь" до конца, начинается с согласного, добавьте все буквы перед первым гласным + ay до конца утка -> uckday.)

(перевести '(палки и камни)) -> (ickstay andway onestay)

Я считаю, что у меня должно быть правильное решение, однако у меня возникают проблемы при обработке фразы в виде списка со строкой -> список и список -> строка, чтобы правильно перевести каждое слово.

#lang racket

(define translate
  (lambda (sentance)
    (map breakSentance sentance)))


; break down sentance string split
(define (breakSentance word)
  (string->list (listWord (string->list word))))

; break down word for vowel testing
(define (listWord word)
    (cond
      ((foundVowel (car word)) (noVowel word))
      (else (noVowel word))))

; letters that are vowels, their presence indicates how the word should be latinized
(define (foundVowel)
  (lambda (letter)
    (member letter '("aeiouy"))))


(define (startsVowel)
  (lambda (word)
    (append word '("way"))))


(define (noVowel)
  (lambda (word lets)
    (cond
      (foundVowel (car word)) (noVowel word))
    (string-join word (string-join lets '("ay")))))