(define (read) 1)
(define read (lambda () 0))
(exit (read))