;; lists-2.txt

(member? 3 '(1 2 3 4 5) equal?)
=> #t
(member? 3 '(2 4 6 8) equal?)
=> #f
(member? + (list head tail + pair) is?)
=> #t

(pair* 1 2 3 ())
=> (1 2 3)
(pair* 1 2 3 '(a b c))
=> (1 2 3 a b c)

(length ())
=> 0
(length '(a b c (d e f)))
=> 4

(reverse '(a b c))
=> (c b a)
(reverse '((a b) (c d) (e f)))
=> ((e f) (c d) (a b))

(define s '(a b c d e f g h))
(first s)
=> a
(second s)
=> b
(third s)
=> c
(list-ref s 0)
=> a
(list-ref s 7)
=> h

(append '(a b c) '(d e f))
=> (a b c d e f)

(unique '(a b c a f a b e h a) equal?)
=> (a b c f e h)