#!r7rs
(import (rnrs))

(define (middle f)
  (let ((x 998))
    (f 1)
    )
  )

(define (outer)
  (let ((x 122))
    (let ((inner (lambda (y)
                     (+ x y)
                     )
                   ))
        (middle inner)
        )
    )
  )

(display (outer))