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