(require-library simple-tests)
(import (only simple-tests run-tests))

(run-tests
  (= 5 (length '(0 1 2 3 4)))
  (list? '(0 1 2 3 4))
  (not (vector? '(0 1 2 3 4)))
  (zero? (car '(0 1 2 3 4)))
  (= 2 (list-ref '(0 1 2 3 4) 2))
  )