#lang racket

(provide test-eq)

(define (test-eq a b)
   (if (equal? a b) (displayln "PASS") (error (format "FAIL: ~a != ~a" a  b))))