;;;;;;;;;;;;;;;
;; Scoping

(define num 10)

(define (baz x)
  (set! num x))

;; (baz 1000)


;;;;;;;;;;;;;;;;
;; Scoping Ex2

(define (hat x)
  ((lambda (y)
     (+ x y)) 100))

;; (hat 50)


;;;;;;;;;;;;;;;;;;;;
;; Scoping Problem

(define num 10)

(define (foo num)
  (set! num 100))

;;  (foo 50)

;;  num


;;;;;;;;;;;;;;;;;;;;
;; Tricky Scoping

(define num 10)

(define (bar fn num)
  (fn (+ 1 num))    ;;;;;
  NUM)              ;;;;;

;;  (bar (lambda (x) (set! num x)) 1000)

;;  num











;;;;;;;;;;;;;;;;;;;
;; Tricky Scoping v2

(define num 10)

(define bar
  (lambda (fn num)
    (fn num))
    )

(define nameless
  (lambda (x) (set! num x)))

(bar nameless 1000)