1(define null '()) 2(define eof #!eof) 3 4(define void 5 (case-lambda 6 [() (#%void)] 7 [(arg) (#%void)] 8 [args (#%void)])) 9(define (void? v) (eq? v (#%void))) 10