;;;;;;;;;;;;;
;; Counter 1

(define count1
  (lambda ()
    (let ((num 1))
      (set! num (+ num 1))
      num)))



;;;;;;;;;;;;
;; Counter 2

(define count2
  (let ((num 1))
    (lambda ()
      (set! num (+ num 1))
      num)))



;;;;;;;;;;;;
;; Counter 2.1

(define (intermediate-frame-creator num)
  (lambda ()
    (set! num (+ num 1))
    num))

(define count21
  (intermediate-frame-creator num))







;;;;;;;;;;;;;;
;; Counter 3 (MALFORMED COUNTER)

(define (count3)
  (let ((num 1))
    (lambda ()
      (set! num (+ num 1))
      num)))


;;;;;;;;;;;;;;
;; Counter 4 (MALFORMED COUNTER)

(define count4
  (let ((num 1))
    (set! num (+ num 1))
    num))