(define (a)
  (let ((x (lambda () 1)))
    x))

(display (a))