(begin
  (displayln "--- TEST: car --------------------------------------------------")
  (displayln (car (cons 123 456)))
  (newline)
  (displayln "--- TEST: cdr --------------------------------------------------")
  (displayln (cdr (cons 123 456)))
  (newline)
  (displayln "--- TEST: list -------------------------------------------------")
  (displayln (list))
  (displayln (list 123))
  (displayln (list 123 456))
)