; https://github.com/munificent/craftinginterpreters/blob/master/test/closure/nested_closure.lox
#lang scheme

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

(define f #f)

(define (f1)
  (define a 1)
  (define (f2)
    (define b 2)
    (define (f3)
      (define c 3)
      (define (f4)
        (displayln a)
        (displayln b)
        (displayln c))
      (set! f f4))
    (f3))
  (f2))

(f1)

(f)