(begin
  (displayln "--- TEST: equal? -----------------------------------------------")
  ; No args
  (displayln (equal?))
  ; A single arg
  (displayln (equal? '()))
  (displayln (equal? +))
  (displayln (equal? (cons 123 456)))
  (displayln (equal? #false))
  (displayln (equal? #true))
  ;(displayln (equal? #\n))
  (displayln (equal? 'foo))
  (displayln (equal? "foo"))
  (displayln (equal? 123))
  ; Two equal args
  (displayln (equal? '() '()))
  (displayln (equal? + +))
  (displayln (equal? (cons 123 456) (cons 123 456)))
  (displayln (equal? #false #false))
  (displayln (equal? #true #true))
  ;(displayln (equal? #\n #\n))
  (displayln (equal? 'foo 'foo))
  (displayln (equal? "foo" "foo"))
  (displayln (equal? 123 123))
  ; Two different args
  (displayln (equal? '() '(1)))
  (displayln (equal? + -))
  (displayln (equal? (cons 123 456) (cons 123 789)))
  (displayln (equal? #false #true))
  (displayln (equal? #true #false))
  ;(displayln (equal? #\n #\t))
  (displayln (equal? 'foo 'bar))
  (displayln (equal? "foo" "bar"))
  (displayln (equal? 123 789))
  ; Three equal args
  (displayln (equal? '() '() '()))
  (displayln (equal? + + +))
  (displayln (equal? (cons 123 456) (cons 123 456) (cons 123 456)))
  (displayln (equal? #false #false #false))
  (displayln (equal? #true #true #true))
  ;(displayln (equal? #\n #\n #\n))
  (displayln (equal? 'foo 'foo 'foo))
  (displayln (equal? "foo" "foo" "foo"))
  (displayln (equal? 123 123 123))
  ; Three different args
  (displayln (equal? '() '() '(1)))
  (displayln (equal? + + -))
  (displayln (equal? (cons 123 456) (cons 123 456) (cons 123 789)))
  (displayln (equal? #false #false #true))
  (displayln (equal? #true #true #false))
  ;(displayln (equal? #\n #\n #\t))
  (displayln (equal? 'foo 'foo 'bar))
  (displayln (equal? "foo" "foo" "bar"))
  (displayln (equal? 123 123 789))
)