#lang racket

(provide test-eq ppexp)

(define (test-eq a b)
   (if (equal? a b) #t (error "assert failed: " a " != " b)))

(define (ppexp exp) (begin (print exp) (newline)))