(define id (lambda (x) x))

(define hack (lambda (x) (display x) (newline) 1))

(define c 0)
(define remember-c (lambda (x) (set! c x) 0))