0. #lang racket
1. (define (gossip keyword sentence)
2.   (substring
3.    (foldl (lambda (str1 str2)
4.             (string-append str2 " " str1))
5.           ""
6.           (map glue-phrase
7.                (let ([keyword (word->syllables keyword)]
8.                      [words (filter pair? (sentence->syllables sentence))])
9.                  (map (curry encode-word keyword)
10.                       words))))
11.    1))
12.  
13. (define (encode-word keyword word)
14.       (cons (cons (car keyword) (cdr word))
15.             (list (cons (car word) (cdr keyword)))))
16.  
17. (define (glue-phrase phrase)
18.   (string-append
19.    (apply string-append
20.           (car phrase))
21.    " "
22.    (apply string-append
23.           (cadr phrase))))
24.  
25. (gossip "груша" "Католическая философия в том смысле в котором я буду применять этот термин это философское направление господствовавшее в европейской мысли со времен Августина до эпохи возрождения")

=>

word->syllables: undefined;

cannot reference an identifier before its definition

in module: 'm