0. #lang racket
1. (define (quibble words)
2.   (define (quibble-helper words)
3.     (match words
4.       [(list) ""]
5.       [(list a) a]
6.       [(list a b) (format "~a and ~a" a b)]
7.       [_ (format "~a, ~a" (first words) (quibble-helper (rest words)))]))
8.   (format "{~a}" (quibble-helper words)))
9.  
10. (module+ test
11.   (require rackunit)
12.   (define (test-quibble expected words)
13.     (check-equal? expected (quibble words)))
14.  
15.   (test-quibble "{}" empty)
16.   (test-quibble "{ABC}" (list "ABC"))
17.   (test-quibble "{ABC and DEF}" (list "ABC" "DEF"))
18.   (test-quibble "{ABC, DEF, G and H}" (list "ABC" "DEF" "G" "H")))

=>

eval:2:0: module+: allowed only in a module body

in: (module+ test (require rackunit) (define (test-quibble

expected words) (check-equal? expected (quibble words)))

(test-quibble "{}" empty) (test-quibble "{ABC}" (list

"ABC")) (test-quibble "{ABC and DEF}" (list "ABC" "DEF"))

(test-quibble "{ABC, DEF, G a...