0. #lang racket
1.  
2. (define (map f xs)
3.     (if (null? xs)
4.         null
5.     (cons (f (car xs)) (map f (cdr xs))))
6.  
7. (define xs ' (1 2 3 4))
8. (define f (lambda (x) (+ x 1)))
9. (map (lambda (x) (+ x 1)) xs)
10.  
11. (define (filter f xs)
12.     (if (null? xs)
13.         null
14.         (if (f car xs))
15.         `   (cons (car xs) (filter f (cdr xs)))
16.             (filter f (cdr xs)))))

=>

eval:2:0: begin (possibly implicit): no expression after a

sequence of internal definitions

in: (begin (if (null? xs) null (cons (f (car xs)) (map f

(cdr xs)))) (define xs (quote (1 2 3 4))) (define f (lambda

(x) (+ x 1))) (map (lambda (x) (+ x 1)) xs) (define (filter

f xs) (if (null? xs) null (if (f car xs)) (quasiquote (cons

(car xs) (filter f (...