10 ((lambda (a) (+ 2 a)) 17)
16 (eq? (quote ()) (quote ()))
19 (eq? (cons 2 3) (cons 2 3))
20 (eq? (quote foo) (quote foo))
21 (eq? (quote foo) (quote bar))
23 (eq? "foo" (quote foo))
26 (list? (cons 17 (quote ())))
27 (primitive-eval (quote (+ 17 42)))
28 (define (foo a b) (+ a b)) (foo 17 42)
29 (cdr (quote (17 . 42)))
30 (quote (17 . (12 14)))
31 (define (foo x) (if (eq? x 5) 1 (+ (foo (+ x 1)) (foo (+ x 1))))) (foo 2)
32 ((lambda rest (cdr rest)) 1 2 3 4)
33 (define (mylist . rest) rest) (mylist 1 2 3 4)
34 (define (mymap f l) (if (eq? l (quote ())) (quote ()) (cons (f (car l)) (mymap f (cdr l))))) (mymap (lambda (x) (+ x 1)) (quote (1 2 4 8)))
35 (string->list "hello")