handball/src/test/run-pass/closure/gnarly-i.scm

#lang scheme

(define (displayln x)
  (display x)
  (newline))

(define (outer)
  (define x 1)

  (define (middle)
    (define (inner)
      (displayln x))
    (displayln 2)
    inner)

  (displayln 3)

  middle)

(define mid (outer))
(define in (mid))
(in)