#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)))