(assert (eq (*) null))
(assert (eq (* 1) (cons 1 null)))
(assert (eq (* 1 2) (cons 1 (cons 2 null))))

(assert (eq (list-length (* 1 2 3))
            3))

(assert (eq (list-reverse (* 1 2 3))
            (* 3 2 1)))

(assert (eq (list-append (* 1 2) (* 3 4))
            (* 1 2 3 4)))