0. #lang racket
1.  
2. (define (sum x)
3. (if (null? x) 0
4.     (+ (car x) (sum (cdr x)))))
5.  
6. (define (product x)
7. (if (null? x) 0
8.     (* (car x) (product (cdr x)))))
9.  
10. (define (main)
11.   (begin
12.  
13.     (display "Enter number: ")
14.     (define inp1 (read-line))
15.     (define num (string->number (string-trim inp1)))
16.  
17.     (define lst (range 1 (+ num 1)))
18.  
19.     (display "sum or product: ")
20.     (define inp2 (read-line))
21.     (define str (string-trim inp2))
22.  
23.     (cond
24.         [(equal? str "sum") (sum lst)]
25.         [(equal? str "product") (product lst)])
26.  
27.     (main)
28.  
29. ))
30.  
31. (main)

=>

Enter number:

string-trim: contract violation

expected: string?

given: #<eof>