Knock together words from the list pairwise

words-knock-together.rkt

#lang racket

(define word-list (list "помада" "ревность" "сыр" "солнце" "трава"))

(define (words-knock-together word-list)
  (when (> (length word-list) 1)
    (map (lambda (x)
           (displayln (string-append (first word-list) " " x))
           ;(displayln (string-append x " " (first word-list)))
           ) (rest word-list))
    (words-knock-together (rest word-list))
    ))

(words-knock-together word-list)