> 0
> (from-to 1 10)
(1 2 3 4 5 6 7 8 9 10)
> (from-to 1 10)
(1 2 3 4 5 6 7 8 9 10)
> (collect 1 10 (lambda (x) (* x x)) (lambda (x) (+ x 2)))
(1 9 25 49 81)
> (map 1+ (from-to 1 5))
(2 3 4 5 6)
> (map 1+ (from-to 1 5))
(2 3 4 5 6)
> filter
filter: undefined;
 cannot reference an identifier before its definition
> (filter odd? (from-to 1 10))
(1 3 5 7 9)
> foldr
foldr: undefined;
 cannot reference an identifier before its definition
> (foldr + 0 (from-to 1 10))
55
> (fact 0)
1
> (foldr list '() '(1 5 10))
(1 (5 (10 ())))
> (length (from-to 1 10))
10
> (length (from-to 1 10))
10
> (append '(1 2 3) '(4 5 6))
(1 2 3 4 5 6)
> (copy (from-to 1 10))
(1 2 3 4 5 6 7 8 9 10)
> (reverse (from-to 1 10))
(10 9 8 7 6 5 4 3 2 1)
> (length (reverse (from-to 1 1000000)))
user break
> (length (reverse (from-to 1 100000)))
user break
> (length (reverse (from-to 1 10000)))
user break
> (length (reverse (from-to 1 1000)))
1000
> (length (reverse (from-to 1 5000)))
5000
> (length (reverse-faster (from-to 1 5000)))
mcar: contract violation
  expected: mpair?
  given: 1
> (reverse-faster '(1 2 3 4 5))
(((((() . 5) . 4) . 3) . 2) . 1)
> (pair? (reverse-faster (from-to 1 5000)))
#t
> (pair? (reverse (from-to 1 5000)))
#t
> (length (reverse-faster (from-to 1 5000)))
5000
> (member 3 (from-to 1 10))
(3 4 5 6 7 8 9 10)
> (member 13 (from-to 1 10))
> (length (reverse-faster (from-to 1 5000)))
5000
> (member 3 (from-to 1 10))
#t
> (member 13 (from-to 1 10))
#f
> (member? 13 (from-to 1 10))
#f
> (member? 3 (from-to 1 10))
#t
> (map 1+ '(1 2 3))
foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
> (map 1+ '(1 2 3))
foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 2
> (member? 3 (from-to 1 10))
#t
> (map 1+ '(1 2 3))
(2 3 4)
> (filter odd? '(1 2 3 4 5))
(1 3 5)
> (foldl + 0 '(from-to 1 10))
+: contract violation
  expected: number?
  given: from-to
> (foldl + 0 (from-to 1 10))
55
> (foldl cons '() '(1 2 3))
(((() . 1) . 2) . 3)
> (foldl snoc '() '(1 2 3))
mcar: contract violation
  expected: mpair?
  given: 1
> 
> (length (reverse-faster (from-to 1 5000)))
5000
> (length (reverse (from-to 1 5000)))
5000
> (maximum '(1 2 4 1 3 2 5 1 3 ))
5
> (maximum '(1 2 4 1 3 2 5 1 -3 ))
5
> (maximum '(-1 -2 -4 -1 -3 -2 -5 -1 -3 ))
0
> (maximum '(-1 -2 -4 -1 -3 -2 -5 -1 -3 ))
-1
> (maximum '())
mcar: contract violation
  expected: mpair?
  given: ()
> (foldr1 max '(1 34 1 24 113 1 12 ))
113
> (foldr1 max '(1 34 1 24 113 1 12 ))
113
> (foldr append '() '((1 2 3) (4 5 6) (7 8 9)))
(1 2 3 4 5 6 7 8 9)
> (foldr1 append  '((1 2 3) (4 5 6) (7 8 9)))
(4 5 6 7 8 9 1 2 3)
>