> (map 1+ '(1 2 3))
(2 3 4)
> 
> (map 1+ '(1 2 3))
(2 3 4)
> (and #t #t 2 #t)
#t
> (and #t #t 2)
2
> 
> (memv 5 '(1 2 3 4))
#f
> (memv 2 '(1 2 3 4))
(2 3 4)
> (filter odd? (from-to 1 10))
(1 3 5 7 9)
> '((+ 2 3) (- 5 7) (+ 1 4))
((+ 2 3) (- 5 7) (+ 1 4))
> `(,(+ 2 3) ,(- 5 7) ,(+ 1 4))
(5 -2 5)
> (list (+ 2 3) (- 5 7) (+ 1 4))
(5 -2 5)
> (+)
0
> '(+)
(+)
> (list +)
(#<procedure:+>)
> '(+)
(+)
> (cons 'e '())
(e)
> (foldr + 0 (from-to 1 10))
55
> (map 1+ '(1 2 3))
(2 3 4)
> (filter odd? (from-to 1 10))
foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
> (foldr + 0 (from-to 1 10))
55
> (filter odd? (from-to 1 10))
(1 3 5 7 9)
> (accumulate + 0 (lambda (x) (* x x)) 1 1+ 10) 
55
> (accumulate + 0 (lambda (x) (* x x)) 1 1+ 10) 
385
> (length (from-to 1 10))
10
> (memv 2 '(1 2 3 4 5))
foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
s: undefined;
 cannot reference an identifier before its definition
> (memv 2 '(1 2 3 4 5))
#t
> (memv 6 '(1 2 3 4 5))
#f
> 
> (append '(1 2 3) '(4 5 6))
(1 2 3 4 5 6)
> (reverse '(1 2 3 4 5))
(5 4 3 2 1)
> (reverse '(1 2 3 4 5))
(1 2 3 4 5)
> 
> (reverse '(1 2 3 4 5))
(((((() . 5) . 4) . 3) . 2) . 1)
> (reverse '(1 2 3 4 5))
(5 4 3 2 1)
> (reverse '(1 2 3 4 5))
(5 4 3 2 1)
> (foldl + 0 '(1 2 3 4 5))
15
> (foldr cons '() '(1 2 3))
(1 2 3)
> (foldl cons '() '(1 2 3))
(((() . 1) . 2) . 3)
> (foldl snoc '() '(1 2 3))
mcar: contract violation
  expected: mpair?
  given: 1
> (foldl (lambda (r x) (snoc x r)) '(1 2 3))
> (foldl (lambda (r x) (snoc x r)) '() '(1 2 3))
(1 2 3)
> (foldl (lambda (r x) (cons x r)) '() '(1 2 3))
(3 2 1)
> (length (reverse (from-to 1 10000)))
10000
> (length (reverse (from-to 1 10000)))
user break
> (car '())
mcar: contract violation
  expected: mpair?
  given: ()
> 
> (foldr1 max '(1 -1 5 2 3 1))
5
> (foldr1 append '((1 2 3) (4 5 6)))
(1 2 3 4 5 6)
> (foldr1 cons '((1 2 3) (4 5 6)))
((1 2 3) 4 5 6)
> (foldr1 cons '((1 2 3) (4 5 6) (7 8 9)))
((1 2 3) (4 5 6) 7 8 9)
> (foldl1 max '(1 5 5 2 2 -4))
5